Perlのハッシュプリント
ハッシュをforeachでトラバース
sub print_hash(){
my(%hash) = @_;
foreach my $key (keys %hash){
print "key:$key\tval:$hash{$key}\n";
}
}
というかDumperモジュールを発見。
use Data::Dumper;
print Dumper %hash;
sub print_hash(){
my(%hash) = @_;
foreach my $key (keys %hash){
print "key:$key\tval:$hash{$key}\n";
}
}
use Data::Dumper;
print Dumper %hash;