hash value 值用变量替换 不成功

sunkez

my $xx="name => Anonymous";
%hash = ($xx);
print $hash{name};

如上， ($xx) 这部分怎么用变量替换

ynchnluiti

1. my $xx="name => Anonymous";
   
2. %hash = (eval $xx);
   
3. print $hash{name};

复制代码

sunkez

谢谢楼上
use strict;
use warnings;
my $xx="name => Anonymous";
my %hash = (eval $xx);
print $hash{name};


我打开
use strict;
use warnings;
上俩个检查，报错警告，不出结果
去掉结果是正确的，什么问题呢

shaneqi

no strict "subs";

MMMIX

原帖由 sunkez 于 2009-2-24 09:08 发表
谢谢楼上
use strict;
use warnings;
my $xx="name => Anonymous";
my %hash = (eval $xx);
print $hash{name};


我打开
use strict;
use warnings;
上俩个检查，报错警告，不出结果

eval 把 $xx 的值当作代码，那么要想结果正确，$xx 的值在作为代码解释的时候就必须语法/语意正确，因此你可以：
1) 使用 no strict 'subs';
或者 2) 修改 $xx 的内容，例如写为 $xx = "name => 'Anonymouse'";