问题是,如果我在BEGIN内部死亡,我抛出的信息就会被埋没
BEGIN失败了 – 编译中止了.但是我更喜欢死掉1,因为它可以被捕获.我应该只使用退出1还是我可以做些什么来抑制这个额外的消息？

#!/usr/bin/env perl

use strict;
use warnings;

BEGIN {
  my $message = "Useful message,helping the user prevent Horrible Death";
  if ($ENV{AUTOMATED_TESTING}) {
    # prevent CPANtesters from filling my mailBox
    print $message;
    exit 0;
  } else {

    ## appends: BEGIN Failed--compilation aborted at
    ## which obscures the useful message
    die $message;

    ## this mechanism means that the error is not trappable
    #print $message;
    #exit 1;

  }
}

BEGIN {
  die "Horrible Death with useless message.";
}

解决方法

# place this at the top of the BEGIN block before you try to die

local $SIG{__DIE__} = sub {warn @_; exit 1};

• 上一篇：有没有更有效的方法在Perl中生成随下一篇：在Perl中打印到文件与打印到shell