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

ljw0316

回复 10# xiumu2280
在小骆驼上看到glob操作符，取得当前目录所有文件。但是后面怎么依次处理计算就懵了。感觉脑筋不够似的。。
实践的太少，得继续研究啊。。。

   

pitonas

写第六个程序·
这个思路不错~
谢谢了小伙伴们。{:2_172:}
回复 5# xiumu2280


   

ljw0316

回复 9# pitonas
小骆驼都没读明白呢，，程序都是看例子自个儿改的。。。。

   

rongchaogao

1. use strict;
   
2. use warnings;
   
3. 
   
4. my        $out_out1 = "result.txt";
   
5. open  my $out1, '>', $out_out1 or die  "Fail open $out_out1\n";
   
6. print $out1 "Date\tserver\tgini\n";
   
7. 
   
8. my (%hash,%freq,%amout,);
   
9. 
   
10. my @files=glob "*.log";
    
11. 
    
12. foreach my $file (@files)
    
13. {
    
14.         $file=~m/_(\d{4})(\d{2})(\d{2})/;
    
15.         my $data="$1-$2-$3";
    
16.         my        $in_in = "$file";
    
17.         open  my $in, '<', $in_in or die "Fail open $in_in file\n";
    
18.         while(<$in>)
    
19.         {
    
20.                 chomp;
    
21.                 my @array=split /\|/;
    
22.                 if($array[6]==15 or $array[6]==16)
    
23.                 {
    
24.                         $hash{$array[2]}{$array[5]}{$array[9]}=1;
    
25.                 }
    
26.                 else
    
27.                 {
    
28.                         next;
    
29.                 }
    
30.         }
    
31.         foreach my $key1 (sort {$a<=>$b} keys %hash)
    
32.         {
    
33.                 foreach my $key2 (sort {$a<=>$b} keys %{$hash{$key1}})
    
34.                 {
    
35.                         foreach my $key3 (sort {$a<=>$b} keys %{$hash{$key1}{$key2}})
    
36.                         {
    
37.                                 $freq{$key1}{$key2}++;
    
38.                                 $amout{$key1}{$key2}+=$key3;
    
39.                         }
    
40.                 }
    
41.         }
    
42.         foreach my $key1 (sort {$a<=>$b} keys %freq)
    
43.         {
    
44.                 my @origx=qw//;;
    
45.                 foreach my $key2 (sort {$b<=>$a} keys %{$freq{$key1}})
    
46.                 {
    
47.                         push @origx,$amout{$key1}{$key2};
    
48.                 }
    
49.                 my $gini=calc_gini(\@origx,$data,$key1)
    
50.         }
    
51.        
    
52.         undef %hash;
    
53.         undef %freq;
    
54.         undef %amout;
    
55.         close $in;
    
56. }
    
57. close  $out1;
    
58.        
    
59. sub calc_gini
    
60. {
    
61.         my $ginisum=0;
    
62.         my $sum=0;
    
63.         my $cout=@{$_[0]};
    
64.         for (my $i=1;$i<=$cout;$i++)
    
65.         {
    
66.                 $ginisum=$ginisum+(2*$i-$cout-1)*$_[0]->[$i-1];
    
67.                 $sum=$sum+$_[0]->[$i-1];
    
68.         }
    
69.         my $gini=$ginisum/($cout-1)/$sum;
    
70.         print $out1 "$_[1]\t$_[2]\t$gini\n";
    
71. }
    

复制代码

pitonas

小伙伴们,提问题?  需求 目标都要清楚 ~{:2_171:}

代码这麽多的错误，无法从你的错误代码猜出来你的目标,
囧。{:2_176:}

大概就是这样了
真心不会了，折腾了一下午，怎么都搞不好....{:2_169:}

1. open my $F, "equ.txt" or die "error: $!";
   
2. my @equ;
   
3. while (<$F>) {
   
4.     chomp;
   
5.     my @array = split /\|/;
   
6.     if ( $array[6] == 15 or $array[6] == 16 ) {
   
7.         push @equ, [ @array[ 2, 5, 9 ] ];
   
8.     }
   
9. }
   
10. 
    
11. @equ = map { [ @{$_}[ 1, 2 ] ] }
    
12.        sort { $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] }
    
13.        grep { $_->[0] == 0 } @equ;
    
14. 
    
15. my %amount;
    
16. 
    
17. $amount{ $_->[0] } += $_->[1] for @equ;
    
18. 
    
19. @equ = sort { $amount{$a} <=> $amount{$b} } keys %amount;
    
20. 
    
21. sub calc_gini {
    
22.     my @x = @_;
    
23.     my ( $ginisum, $sum ) = ( 0, 0 );
    
24.     for my $i ( 1 .. @x ) {
    
25.         $ginisum += ( 2 * $i - @x - 1 ) * $x[ $i - 1 ];
    
26.         $sum += $x[ $i - 1 ];
    
27.     }
    
28.     $ginisum / $#x / $sum;
    
29. }
    
30. 
    
31. my $gini = calc_gini(@equ);
    
32. print "$gini\n";

复制代码

回复 11# ljw0316


   

ljw0316

回复 14# rongchaogao
第一反应是 感激呀
我好好尝试下，灰常感谢

   

ljw0316

回复 15# pitonas
先谢谢下伙伴，可能是我表述不好。目标就是每天每个服务器的基尼系数，其他都不需要。
其实数据就是每一天的日志文件，一天一个log文件，每个文件包含所有服务器的信息。
如果您有兴趣不妨加QQ401939231 共同探讨，不胜感谢！