【perl】散列表的遍歷

my %hash; $hash{"objA"}{"size"}="ewr"; $hash{"objA"}{"width"}="werwer"; $hash{"objB"}{"size"}="ewasdr"; $hash{"objB"}{"width"}="werweasdr"; foreach my $k (grep {/^obj/} keys %hash) { print $k

>>阅读原文<<