perl - 如何在 Perl 中打印包变量

Question

我想在主包中打印包变量，我该怎么做？

package temp;
$A = 10;
1;

package main;
$B = "A";
print $temp::$B;
1;

标签： perl

Answer 1

print $temp::A;

如果您（非常）想要使用“符号引用”，就像您正在做的那样，

my $var_name = "temp::A";
print do { no strict qw( refs ); $$var_name };