如何在 Perl 中使用变量的值作为变量名？

Question

如果我有一个变量$bar，它等于字符串"foo"，而$foo 等于0xdead，我如何获得$foo 的值，而我只有字符串变量名？

本质上，我想对全局命名空间进行一种指针间接寻址，或者对全局命名空间进行哈希查找。

以下操作无效：

perl -e 'my $foo=0xdead; my $bar ="foo"; print ${$bar}."\n";' 

它只打印换行符。

Answer 1

这个技巧只适用于全局变量（符号引用寻找当前包的symbol table），即。 e.

perl -e '$foo=0xdead; my $bar ="foo"; print ${$bar}."\n";' 

如果你想捕捉词汇，你必须使用eval ""

perl -e 'my $foo=0xdead; my $bar ="foo"; print eval("\$$bar"),"\n";' 

但是在 Perl 中无目的使用 eval "" 被认为是不好的风格，以及使用全局变量。考虑使用真实的参考资料（如果可以的话）。

Answer 2

在 Perl 中，您必须使用符号引用的实例非常非常非常少。在所有其他情况下避免符号引用与风格无关。这是关于成为一个聪明的程序员。正如mjd 在Why it's stupid to "use a variable as a variable name" 中解释的那样：

问题代码的真正根源是：它很脆弱。当你这样做时，你正在混合不同的东西。如果其中两个不同的东西碰巧有相同的名字，它们就会发生冲突，你会得到错误的答案。所以你最终会得到一长串名字，你必须小心不要重复使用，如果你搞砸了，你会得到一个非常奇怪的错误。这正是命名空间被发明来解决的问题，而这正是哈希的本质：一个可移植的命名空间。

另请参阅 Part 2 和 Part 3。

Answer 3

没有my 和$$bar 对我有用：

$ perl -e '$foo=0xdead;$bar ="foo";打印 $$bar."\n";'
57005

您可以在Perl FAQ List 中找到有关使用a variable as a variable name 的更多信息。