Perl 中输出 hash 的所有內容

while(my ($key, $val) = each(%hash)) { print "$key $val" } %hash = qw / car 600k bike 70k /; print $_ , $hash{$_} , "/n" foreach (keys %hash); print "$_ $hash{$_}/n" foreach (keys %hash); print "$_ $h

>>阅读原文<<