使用var在Perl中选择var

我以为你曾经能够在“严格”模式下做到这一点,但我可能记得不正确.有可能这样的东西工作……

use strict;
use warnings;

package SomePackage;

my $TargetPID="demo:5"; #using "our" also works,but not in strict mode
my $VarName="TargetPID";

print ${$VarName}; #works but not in strict or if the var is declared with "my"
exit;

我感兴趣的原因是我正在尝试根据文本文件中的文本标志选择变量,我想将文本文件的内容读入哈希,然后沿着行替换一些标识符“#TargetPID#”与相应的变量.也能够指定包和变量(或常量)将是一个不错的tbonus.

解决方法

我不能想到以你尝试过使用哈希的方式做任何优势：

use strict;
use warnings;

package SomePackage;

my %vars = ();
$vars{'TargetPID'}="demo:5";
my $VarName="TargetPID";

print $vars{$VarName};
exit;

如果你真的必须使用$TargetPID作为变量而不是散列的成员,你可以使用eval：

my $TargetPID = "demo:5";
my $VarName = '$TargetPID';
print eval $VarName;

或者,如果由于某种原因你需要$VarName的值为’TargetPID’而不是’$TargetPID’,你可以打印eval’$’. $varname的.