Perl 带有字符串而没有附加文件名和行号

Question

在 Perl 中是否有一种dieing 的方式使得$@ 不会被修改？据我所知，die 在某些情况下会破坏$@ 的内容并“抛出”，将控制权转移到非本地。我只想做后者。

当die 是字符串时，当传递给die 的异常对象是字符串（或undef）时，将文件名和行号附加到$@。

例如，

#!/usr/bin/env perl
# foo.pl
use strict;
use warnings;
use Data::Dumper;

eval { die '1'; };
my $hash_ref = {
    msg => $@,
};

print Dumper($hash_ref);

打印：

$VAR1 = {
          'msg' => '1 at foo.pl line 7.
'
        };

但如果参数不是字符串（或 undef），则不会对其进行修改。

#!/usr/bin/env perl
# foo2.pl
use strict;
use warnings;
use Data::Dumper;

eval { die ['string-inside-arrayref']; };
my $hash_ref = {
    msg => $@,
};

print Dumper($hash_ref);

这个 sn-p 产生：

$VAR1 = {
          'msg' => [
                     'string-inside-arrayref'
                   ]
        };

Answer 1

perldoc -f die:

模具清单

die 引发异常。 [...]

如果 LIST 的最后一个元素不以换行符结尾，则还会打印当前脚本行号和输入行号（如果有），并提供换行符。

如果您想禁止添加文件名和行号，请​​确保您的错误消息以 "\n" 结尾。

要重新抛出现有异常，您只需使用die $@。 $@ 要么是一个异常对象（那么它无论如何都不会被破坏），要么是一个以 "\n" 结尾的字符串（因为之前的 die 将确保添加一个如果没有开始）。