Perl中如何让die输出字符串不附加行号且不修改$@？

首先得明确：Perl的die本质上总会设置$@——这是它设计的核心逻辑之一，用来传递错误信息。但我们可以通过一些技巧，实现看起来$@没有被修改的效果，同时完整保留die的非局部跳转能力。

下面是两种可靠的实现方式：

方法1：手动保存并恢复$@ #

这是最直接、易理解的方案：在触发die前先存好当前的$@，等eval块捕获到跳转后，再把$@恢复成原来的值。

示例代码：

#!/usr/bin/env perl
use strict;
use warnings;

# 模拟$@已有初始值的场景
$@ = "previous error message\n";

my $original_at;
eval {
    # 保存当前的$@状态
    $original_at = $@;
    # 传递特殊引用作为跳转标记，避免die自动附加文件名/行号
    die \'JUMP_ONLY';
};

# 判断是否是我们主动触发的跳转
if ($@ && ref $@ eq 'SCALAR' && $$@ eq 'JUMP_ONLY') {
    # 恢复原来的$@
    $@ = $original_at;
}

# 验证结果：$@还是初始的错误内容
print "\$@ is: '$@'";

方法2：利用对象销毁自动恢复$@（进阶技巧） #

这种方式更隐蔽，通过定义一个带DESTROY方法的类，让对象在销毁时自动把$@恢复成原来的值。当die抛出这个对象时，$@会暂时指向它，等eval块结束后对象销毁，$@就自动回到初始状态了。

示例代码：

#!/usr/bin/env perl
use strict;
use warnings;

# 定义一个专门用来保存和恢复$@的类
{
    package JumpPreserveAT;
    sub new {
        my ($class, $original_at) = @_;
        bless { original => $original_at }, $class;
    }
    # 对象销毁时自动恢复$@
    sub DESTROY {
        my $self = shift;
        $@ = $self->{original};
    }
}

# 初始$@值
$@ = "original error\n";

eval {
    # 创建保存当前$@的对象，直接die抛出它
    die JumpPreserveAT->new($@);
};

# 此时$@已经被自动恢复成初始值
print "\$@ is: '$@'";

关键知识点补充 #

• 当die接收的参数是引用（而非字符串或undef）时，它不会自动附加文件名和行号到$@中，这能避免默认的消息篡改行为。
• 无论用哪种方法，die的非局部控制转移能力都会完整保留——它会立刻跳出当前的eval块（如果没有eval捕获，就直接终止程序）。

内容的提问来源于stack exchange，提问作者Greg Nisbet