如何获取代码引用（coderef）对应的文件名及行号？

这个困扰太真实了——当try_hard被多处调用时，默认的错误信息完全没法帮你快速定位到底是哪一行代码触发的失败。好在Perl自带了工具能轻松解决这个问题，下面给你两种实用的方案：

方案一：用caller直接获取调用位置 #

Perl的内置caller函数可以获取调用栈的上下文信息，我们只需要在try_hard函数开头捕获调用它的文件名和行号，然后把这些信息加到最终的错误提示里就行。

修改后的代码如下：

sub try_hard {
    my $sub = shift;
    # 捕获调用try_hard的文件名和行号
    my ($caller_file, $caller_line) = (caller(0))[1, 2];
    my $tries = 3;
    my @failures;
    
    while ($tries--) {
        eval { 
            my $success = $sub->(@_) or die "sub returned false value"; 
            1; 
        } or do { 
            push @failures, $@; 
        }
    }
    
    die sprintf(
        "try_hard: failed 3 times (called at %s line %d): %s",
        $caller_file, $caller_line, $failures[-1]
    );
}

代码解释 #

• caller(0)返回的是当前子例程（try_hard）的直接调用者的信息列表，其中第1个元素是调用者的文件名，第2个是对应的行号。
• 把这些信息拼到错误消息里后，你看到的错误提示会变成：

  try_hard: failed 3 times (called at MyScript.pl line 42): sub returned false value at BadUtils.pm line 7……
  这样一眼就能知道是MyScript.pl的第42行调用try_hard出了问题。

方案二：用Carp模块生成完整调用栈 #

如果你的代码结构比较复杂，需要看完整的调用链（比如try_hard被其他子例程间接调用），可以用Perl核心模块Carp的longmess函数，它会自动生成包含多层调用栈的错误信息。

修改后的代码：

use Carp qw(longmess);

sub try_hard {
    my $sub = shift;
    my $tries = 3;
    my @failures;
    
    while ($tries--) {
        eval { 
            my $success = $sub->(@_) or die "sub returned false value"; 
            1; 
        } or do { 
            push @failures, $@; 
        }
    }
    
    die longmess("try_hard: failed 3 times: $failures[-1]");
}

效果说明 #

使用longmess后，错误信息会包含完整的调用栈，比如：

try_hard: failed 3 times: sub returned false value at BadUtils.pm line 7
at BadUtils.pm line 15
MyScript.pl line 42
main::run() called at MyScript.pl line 100
这样你能清晰看到整个调用路径，方便排查复杂场景下的问题。

两种方案各有侧重：如果只需要快速定位直接调用点，方案一更轻量；如果需要完整调用链，方案二更适合。

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