perl中可使用变量值作为哈希变量名吗？跪求高手解答！！！

linguangan

小弟想使用变量值作为哈希变量名，然后去哈希里面的对应值，请哪位仁兄帮忙看下，是否可行，如何修改？不胜感激！！1
my $val1="myHash";
my %myHash=("age"=>"25","name"=>"jayden");
print ${$val1}{"age"};

报错：
Use of uninitialized value in print

grshrd49

回复 1# linguangan


啊 看错了，试试楼下的

lhohoz

my %myHash = ("age"=>"25","name"=>"jayden");
my $val1 = \%myHash;
print ${$val1}{"age"};

需要引用

linguangan

十分感谢！回复 3# lhohoz


   

justu78

linguangan 发表于 2013-07-15 12:13
小弟想使用变量值作为哈希变量名，然后去哈希里面的对应值，请哪位仁兄帮忙看下，是否可行，如何修改？不胜 ...

使用eval:
$string="print \${$val1}{'age'};";
#print ${$val1}{"age"};
eval($string);
我测试过了可以

linguangan

恩，谢谢，我的最终目的是使用 ${$变量名}{"哈希键"}，可以通过传入不同的变量名，取不同的哈希变量取相应的键值，问题已解决了，lhohoz的解决方法可行。回复 5# justu78


   

moon_lucifer

回复 1# linguangan

你把第二行的my换成our就可以了

1. perl -e 'my $hash = "test"; our %test = (hello => "world"); print ${$hash}{hello}'

复制代码

rubyish

moon_lucifer 发表于 2013-07-15 15:09
回复 1# linguangan

你把第二行的my换成our就可以了

可行，不胜感激！

rubyish

lhohoz 发表于 2013-07-15 08:34
my %myHash = ("age"=>"25","name"=>"jayden");
my $val1 = \%myHash;
print ${$val1}{"age"};

恩，谢谢，十分感谢！

墨迹哥

你是写PYTHON写多了把。。。