您好
因為最近還有計算總量的需求
所以我將之前的輸出到檔案
接著再用另一隻perl去計算總量
以下為我的程式碼
my $number;
my $total;
open (RESULT , "<". $result_file);
while(<RESULT>)
{
if (/Number:\s+(\d+),\s+Kind\s+(\d+),\s+quantity:\s+(\d+)/)
{
$number = $1;
my $qty = $3;
$total->{ $number } += $qty ;
}
print "代號: $number, total: $total->{ $number }\n";
}
close (RESULT);