perl - 在 Perl 中使用 die 时的退出代码

Question

我已经在 perl 中为我的日志框架覆盖了 die，这样它就可以记录消息并将其打印在控制台上。

die 的覆盖代码:

BEGIN{ *CORE::GLOBAL::die = sub { 
        my ($package, $filename, $line, $subroutine) = caller;
        untie *STDERR;
        my $message;
        foreach my $arg (@_) {
            $message = $message.$arg;
        }

        print STDERR $message;
        tie *STDERR, __PACKAGE__, (*STDERR);
        logmessage("die",$message,$filename, $line);
        #What exit code to pass?
        #exit CODE;
    }
}

我不知道在退出进程时要设置什么退出代码，因为正常的 die 会以错误代码退出。

• 有什么方法可以找出死机时要设置的退出代码叫什么？

• 另外如果能知道可用的错误代码列表会很有帮助在 Perl 中？

Answer 1

退出代码记录在 die 中:

 exit $! if $!;              # errno
 exit $? >> 8 if $? >> 8;    # child exit status
 exit 255;                   # last resort

但正如@amon 指出的那样，die 不会退出，它会抛出异常。与其覆盖它，不如将整个事情包装成一个 eval { ... ; 1 }(或 Try::Tiny 的 try)并在 or do 或 catch 部分记录异常。