Perl 统计出每个用户在商店购买的金额，次数。

IP|时间|服务器区号|qq号|角色GUID|交易流水号|物品ID|物品数量|货币额度|货币类型|订单状态|商店ID
10.147.26.55|2011-09-24 00:00:00|5|44...58|360287970189959153|0|4400027|5|10000|3|0|7
10.147.26.55|2011-09-24 00:00:01|5|11...68|360287970189988998|0|4400026|1|100000|3|0|4
...
目标：使用 Perl 统计出每个用户在商店购买的金额，次数。
求助参考代码，不胜感激！

#!/usr/bin/perl
设log文件名为“test.txt”
open(F,"test.txt")or die "error";
$line=0;
while(<F>){
        chomp;
        if($line==0){$line=1;next;} #跳过第一行
        @array=split /\|/;
        $freq{$array[3]}++; #用户以qq号，累积每行交易次数
        $amount{$array[3]}+=$array[7]; #累积该qq号的货币额度
}
close F;

foreach $temp (sort {$freq{$b}<=>$freq{a}} keys %freq) {#按交易次数排序
        print $temp."\t".$amount{$temp}."\t".$freq{$temp}."\n";
}

1120311766 发表于 2013-8-14 18:16
#!/usr/bin/perl
设log文件名为“test.txt”
open(F,"test.txt")or die "error";

首先，非常感谢！
然后有个问题，程序没有实现按照购买次数排序。
还有就是，最后需要输出一个结果文件，怎么实现呢？

同一用户确定标准是IP地址还是QQ号？向输出文件写入哪些数据？1120311766@qq.com

1120311766 发表于 2013-8-15 17:12
同一用户确定标准是IP地址还是QQ号？向输出文件写入哪些数据？

标准是QQ号码；写入结果：QQ号码，次数，金额。

#!/usr/bin/perl
设log文件名为“test.txt”
open(F,"test.txt")or die "error";
$line=0;
while(<F>){
        chomp;
        if($line==0){$line=1;next;} #跳过第一行
        @array=split /\|/;
        $freq{$array[3]}++; #用户以qq号，累积每行交易次数
        $amount{$array[3]}+=$array[7]; #累积该qq号的货币额度
}
close F;

foreach $temp (sort {$freq{$b}<=>$freq{$a}} keys %freq) {#按交易次数排序
        print $temp."\t".$amount{$temp}."\t".$freq{$temp}."\n";
}

#!/usr/bin/perl
#设log文件名为“test.txt”
#执行 perl pinggu.pl >pinggu.out
open(F,"test.txt")or die "error";
$line=0;
$count=0;
while(<F>){
        chomp;
        #if($count>10){last;}
        $count++;
        if($line==0){$line=1;next;} #跳过第一行
        @array=split /\|/;
        #print $array[3]."\t".$array[7]."\n";
        $freq{$array[3]}++; #用户以qq号，累积每行交易次数
        $amount{$array[3]}+=$array[8]; #累积该qq号的货币额度
}
close F;

foreach $temp (sort {$freq{$b}<=>$freq{$a}|| $amount{$b}<=>$amount{$a}} keys %freq) {
        print $temp."\t".$freq{$temp}."\t".$amount{$temp}."\n";
}
上面的朋友写的，希望能给有类似困惑的童鞋一丝帮助。非常感谢！