Perl子例程接收常量作为参数，如何在子例程中显示常量名？

Perl中用use constant定义的常量本质是编译时替换的子程序，默认传递给子例程的是常量的值，而非名称。要获取常量名称，有两种可行方案：

方案一：传递常量名称字符串（简单直观） #

调用子例程时直接传入常量的名称字符串，在子例程中通过该名称获取对应的值并输出名称。

use constant MYCO => "myco value";
use constant OTHER_CONSTANT1 => "other value";

sub example {
    my $const_name = shift;
    # 校验常量是否存在
    die "不存在名为 $const_name 的常量" unless exists &$const_name;
    
    my $const_value = &$const_name;
    print "常量名称：$const_name，对应值：$const_value\n";
}

example('MYCO');
example('OTHER_CONSTANT1');

这种方法的优势是实现简单、兼容性好，缺点是调用时需要将常量名以字符串形式传入，不能直接写example(MYCO)。

方案二：通过B模块解析调用栈（无需修改调用方式） #

利用Perl的B模块解析调用者的操作树（op tree），从调用上下文里提取常量的原始名称。这种方法不需要修改调用方式，但实现更复杂，且依赖Perl内部结构，不同版本可能存在兼容性问题。

use constant MYCO => "myco value";
use constant OTHER_CONSTANT1 => "other value";
use B qw(svref_2object);

sub example {
    my $value = shift;
    
    # 获取调用者的子程序引用及操作树起始节点
    my $caller_sub = (caller(0))[3];
    my $current_op = svref_2object(\&$caller_sub)->START;
    
    # 遍历操作树，找到当前调用的参数节点
    while ($current_op) {
        if ($current_op->name eq 'entersub' && $current_op->first->name eq 'pushmark') {
            my $arg_op = $current_op->first->sibling;
            # 匹配目标常量名称（可根据需求调整匹配规则）
            if ($arg_op->name eq 'gv' && grep { $arg_op->gv->NAME eq $_ } qw(MYCO OTHER_CONSTANT1)) {
                print "常量名称：" . $arg_op->gv->NAME . "\n";
                last;
            }
        }
        $current_op = $current_op->next;
    }
}

example(MYCO);
example(OTHER_CONSTANT1);

注意事项 #

• Perl常量在编译阶段会被替换为对应的值，所以子例程默认只能拿到值，必须通过额外手段回溯获取名称。
• 方案二的匹配规则需要根据实际定义的常量名称调整，否则无法正确识别。

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