如何獲取存儲在perl中任何變量值的值

Question

需要獲取存儲在perl中任何變量值的值。 例如 -

$a = 'b'; 
$b = '10; 

現在如何使用$一個獲取價值$ B;

Answer 1

Here is a great summary of why it's a bad idea to use a variable as a variable name。

所以我不會告訴你如何去做，因爲這就像教一個小孩如何加載槍一樣。

您需要的是hash。哈希是perl數據結構，它們是鍵值對。

#!/usr/bin/env perl 
use strict; 
use warnings; 

my %stuff; 
$stuff{'b'} = 10; 

my $target = 'b'; 
print $stuff{$target}; 

Answer 2

我不會在我自己的代碼中親自使用這種方法，但考慮到您提出的問題，您可以使用eval來評估一個變量的字符串值作爲另一個變量的Perl變量名稱。

perl -e '$a='b'; $b=20; print eval("\$$a"), "\n";' 
20 

但是，這不是一個很好的做事方式。如果你解釋了爲什麼你希望能夠根據另一個變量中的字符串名稱從一個變量中獲取值的目的，也許你的問題會得到更好的答案。

Answer 3

你正在做的事情叫做symbolic reference。在版本5之前，這是Perl使用引用的唯一方法。如今，它被認爲已被棄用，應該避免。改爲使用散列。我只是提供一個例子，所以你可以在任何你必須維護和消除的代碼中發現它。

符號參考僅適用於動態變量，即變量聲明爲our或use vars。另外請注意，您必須關閉use strict refs才能運行。

use strict; 
use warnings; 

my $x = 'y'; 
our $y = 10; 

{ 
    no strict qw(refs); 
    print ${$x}, "\n"; 
} 

順便說一句，你也應該避免使用$a和$b。它們被Perl的sort使用，並可能導致混淆。