while(<IN>){ @tmp = split; $key = shift @tmp; $cache{$key}[0] += $tmp[0]; $cache{$key}[1] += $tmp[1]; } close IN; foreach (keys %cache){ print OUT $_," ",join( " ", @{$cache{$_}}), "\n"; } close OUT;
In reply to How can I make a hash use less memory by kevyt
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |