てすと
#!/usr/bin/perl use strict; use warnings; my %a = ( "a" => 1, "b" => 2, "c" => 3, ); my %b = ( "d" => 4, "e" => 5, "f" => 6, ); my %c = ( "g" => {%a}, "h" => {%b}, ); my $a = ${$c{"g"}}{"a"}; my $b = $c{"g"}->{"b"}; print "$a\n"; # 1 と表示される print "$b\n"; # 2 と表示される
('A`) ムムー
しかも、あまり本質的な例ではないしな