如何在Perl中使用變量的值作爲變量名？

Question

如果我有一個變量，$bar，它等於字符串"foo"和$foo等於0xdead，我怎樣才能得到$foo的值，而我只有變量名的字符串？

從本質上講，我想做一種指針間接的對全局命名空間還是全局命名空間的哈希查找。

下不工作：

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

它只打印的換行符。

Answer 1

這一招僅適用於全局變量（符號引用尋求當前包的symbol table），我。即

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

如果你想捕獲的詞彙，你將不得不使用eval ""

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

但使用eval ""無目的被認爲是不好的風格在Perl，以及使用全局變量。考慮使用真實的參考（如果可以的話）。

Answer 2

沒有my與$$bar作品對我來說：

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

你可以找到更多關於在Perl FAQ List使用a variable as a variable name。

Answer 3

有非常非常非常珍貴在Perl少數情況下，必須使用符號引用。在所有其他情況下避免符號引用不是關於樣式。這是一個聰明的程序員。作爲mjd解釋Why it's stupid to "use a variable as a variable name"：

問題代碼的真正根源是：它的脆弱。當你這樣做的時候，你和事情不一樣。如果兩個不同的事情碰巧有相同的名字，他們會碰撞，你會得到錯誤的答案。所以你最終得到一長串名字，你必須小心不要重複使用，如果你搞砸了，你會得到一個非常奇怪的錯誤。這正是命名空間被髮明要解決的問題，而這正是一個散列：一個可移植的命名空間。

另請參閱Part 2和Part 3。