ハッシュのハッシュを実現したい。
ハッシュのハッシュを行いたいですがうまくいきません。
◆正しい例
%ultraman = (
TARO => { cpu => "Celeron(266MHz)",
memory=> "32MB",
hdd => "4.3GB",
},
JACK => { cpu => "Pentium2(333Mhz*2)",
memory=> "128MB",
hdd => "9GB*4",
},
);
$name = "JACK";
$item = "cpu";
print "\$ultraman{$name}{$item}=[$ultraman{$name}{$item}]";
exit(0);
__END__
◆このように使えたら便利(要はハッシュの代入でハッシュのハッシュを実現したい)
%a=();
%b = ("cpu"=>"aaaa", "memory"=>"bbbb");
$a{'JACK'} = %b; #---> このように代入したい
$name = "JACK";
$item = "cpu";
print "\$a{$name}{$item}=[$a{$name}{$item}]";
exit(0);
__END__
