Perl 关联数组
#!perluse strict;use warnings;my $array = { "A" => [1, 2, 3, 4, 5], "B" => [6, 7, 8, 9, 0], "C" => [1, 1, 1, 1, 1]};foreach my $key(keys %$array) { my $value = $array->{$key}; if(defined($value)) { foreach my $value(@$value) { print "$value " } } print "\n";}
?
