Perlコーディング初心者質問スレ Part 53
■ このスレッドは過去ログ倉庫に格納されています
0534533
2006/12/27(水) 17:57:11ID:???my $aaa = {
a => 'あ',
b => 'い',
c => 'う'
};
my $bbb = {
a => 'え',
b => 'お',
c => 'か'
};
my $ccc = {
a => 'き',
b => 'く',
c => 'け'
};
my @aaa = (\%aaa, \%bbb, \%ccc);
foreach my $a (@aaa) {
foreach my $b (keys(%$a)) {
print %$a->{$b};
}
}
■ このスレッドは過去ログ倉庫に格納されています