文管中心打印机纸张统计【简单模拟一个小问题】

 

#文管打印机纸张统计-简单的模拟一个小问题。

my %hash;
while (<DATA>) {
 my ($id,$type,$num) = (split)[0,1,2];
 if (exists $hash{"$id\t$type"}) {
  $hash{"$id\t$type"} += $num;
 }
 else
 {
  $hash{"$id\t$type"} = $num;
 }
}
foreach my $k(sort keys %hash) {
 print "$k\t",$hash{$k},"\n";
}

__END__
001 A4 2
002 A3 3
002 A4 6
004 A4 1
004 A4 5