新手求助 小程序组合在一起

ljw0316

目标是计算日志文件中每个服务器每天的基尼系数。
数据格式：
日志文件是一天一个.log文件，其中包含所有服务器的。
IP|时间|服务器区号|QQ号|流水号|角色GUID|op_type|装备GUID|装备ID|当前强化（精炼）后等级

现在写了几个小程序：
1.筛选op_type=15|16； #15和16代表需要的强化（精炼）等级
2.按照服务器号排序； #可以省略
3.按服务器号抽取角色GUID|强化（精炼）等级； #以这个等级作为财富值
4.统计每个角色GUID的强化（精炼）等级和；
5.基尼系数计算。

现在困难是不知道怎么链接程序和一次性完成所有日志文件的处理。
希望好心人帮忙看看，身边都不学Perl。。。

五段小程序：
①

1. #!/usr/bin/perl -w
   
2. use 5.014;
   
3. open(F,"equ.txt")or die "error:$!";
   
4. while(<F>){
   
5.         chomp;
   
6.         my @array=split /\|/;
   
7.         if($array[6]==15 or $array[6]==16){
   
8.                 print "$array[2]|$array[5]|$array[9]\n";  #输出服务器区号、角色GUID、当前强化（精炼）等级
   
9.         }else{next;}
   
10.        
    
11. }
    
12. close F;

复制代码

②

1. #!/usr/bin/perl -w
   
2. use 5.014;
   
3. open(F,"equ1.out")or die "error:$!";
   
4. my @line;
   
5. my @out;
   
6. my $out;
   
7. while(<F>){
   
8.         chomp;
   
9.     push @line, [ split /\|/];
   
10.         }
    
11.         @out = sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] or  $a->[2] <=> $b->[2] }@line;
    
12.     for $out (@out)
    
13. {
    
14.     print "@$out\n";
    
15. }
    
16.        
    
17. close F;

复制代码

③

1. #!/usr/bin/perl
   
2. open(F,"equ2.out")or die "error:$!";
   
3. while(<F>){
   
4.         chomp;
   
5.         @array=split; #切成数组
   
6.         if($array[0]==0){
   
7.                
   
8.                 print "$array[1]|$array[2]\n";       
   
9.         }                       
   
10. }
    
11. close F;

复制代码

④

1. #!/usr/bin/perl -w
   
2. open(F,"equ30.out")or die "error:$!";
   
3. while(<F>){
   
4.         chomp;
   
5.         @array=split /\|/;
   
6.         $freq{$array[0]}++;
   
7.         $amount{$array[0]}+=$array[1];
   
8. }
   
9. close F;
   
10. 
    
11. foreach $temp (sort {$amount{$b}<=>$amount{$a}} keys %freq) {
    
12.         print $amount{$temp}.",";
    
13. }#按照强化和精炼等级和排序，输出强化、精炼等级和。

复制代码

⑤

1. #!/usr/bin/perl
   
2. open(F,"equ4.out")or die "error:$!";
   
3. while(<F>){
   
4.         chomp;
   
5.         my @origx=split /\,/;
   
6.         my $gini=calc_gini(@origx);
   
7.         print "$gini\n";
   
8.         exit;
   
9. 
   
10. sub calc_gini{
    
11.         my @origx=@_;
    
12.         my @x = sort { $a <=> $b } @origx;
    
13.         my $ginisum=0;
    
14.         my $sum=0;
    
15.         my $count=@x;
    
16.         for (my $i=1;$i<=$count;$i++) {
    
17.                 $ginisum=$ginisum+(2*$i-$count-1)*$x[$i-1];
    
18.                 $sum=$sum+$x[$i-1];
    
19.         }
    
20.         my $gini=$ginisum/($count-1)/$sum;
    
21.         return $gini;
    
22.         }
    
23. }
    
24. close F;

复制代码

新手刚学，程序写的简陋啰嗦了点。

ljw0316

期待ing........

yestreenstars

目测楼主在企鹅工作

ljw0316

回复 3# yestreenstars
不是的，希望Perl大侠们帮忙看看给点思路，囧。

   

xiumu2280

你需要写第六个程序····· 把上面5个程序用system运行··· 或者用shell``

ljw0316

回复 5# xiumu2280
小程序写的不完全，一次只能处理指定的一个服务器一天的基尼系数。不知道怎么修改了。。谢谢

   

pitonas

{:2_168:} 看得我都激动了...

ljw0316

回复 7# pitonas
激动意味着有兴趣，那就帮忙看看吧，Thank you~
   

pitonas

{:2_172:} 小伙伴们, 你perl这么NB，这个代码高端大气上档次。
回复 8# ljw0316


   

xiumu2280

你是指 glob 函数？··