- 137 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:30:14.63 ]
- my $keys = [ qw(a b c) ];
my $values = [ qw(apple banana chocolate) ];
my $hashref = {};
@{%$hashref}{@$keys} = @$values;
print $hashref->{a}, "\n";
perl v5.8.9で実行すると
apple
と表示されるのですが、
perl v5.10.1ではエラーになります。
Can't use string ("0") as a HASH ref while "strict refs" in use at 〜〜.
perl v5.10.1でもappleと表示されるようにするにはどうすればいいのでしょうか？
