Perl中能否打印子程序的参数名称？附实现需求示例

你当前的代码输出_是因为*_{NAME}访问的是子程序内默认变量$_的符号表条目，和调用时传入的变量完全无关——Perl默认按值传递参数时，子程序拿到的是变量值的副本，运行时不会保留原始变量名的信息。

要实现你想要的效果，有两种常用方法：

方法一：使用PadWalker模块访问调用者的词法变量 #

这个模块能获取调用者作用域内的词法变量，结合引用传递可关联到原始变量：

use PadWalker qw(peek_my);

sub var_name {
    my ($ref) = @_;
    my $caller_vars = peek_my(1); # 获取上一级调用者的词法变量
    foreach my $name (keys %$caller_vars) {
        if ($caller_vars->{$name} == $ref) { # 比较引用地址匹配原始变量
            print substr($name, 1); # 去掉变量前的$/@/%符号
            return;
        }
    }
}

my $myVar = 123;
var_name(\$myVar); # 输出myVar

注意这里必须传递变量的引用，只有引用能让子程序关联到原始变量。

方法二：解析调用处的源代码 #

通过caller获取调用位置的文件和行号，读取对应行代码后用正则提取参数名：

sub var_name {
    my ($line, $file) = (caller(0))[2,1];
    open my $fh, '<', $file or die $!;
    my @lines = <$fh>;
    close $fh;
    my $call_line = $lines[$line-1];
    if ($call_line =~ /var_name\(\$(\w+)\)/) {
        print $1;
    }
}

my $myVar = 123;
var_name($myVar); # 输出myVar

这种方法无需额外模块，但依赖源代码格式，若调用时参数有换行或特殊写法，正则可能失效。

注意事项 #

• Perl默认按值传递参数，子程序无法直接获取原始变量名，必须借助额外手段。
• 全局变量可通过符号表查找，但my声明的词法变量只能用PadWalker这类工具访问。

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