http://qs321.pair.com?node_id=392006


in reply to Selecting particular key-value pairs in hashes

Non-destructively: 

  my %hash2 = map  {$_ => $hash{$_}}
              grep {/^\d+_\d+$/}
              keys %hash;

[download]



pbeckingham - typist, perishable vertebrate.

In Section Seekers of Perl Wisdom