如何在 Perl 中打印 Package 變量

Question

我想在主 package 中打印 package 變量，我該怎么做？

package temp;
$A = 10;
1;

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

Answer 1

print $temp::A;

如果您（非常）想像您看起來那樣使用“符號引用”，

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