使用perl 统计相关问题

Perl论坛钧哥哥

1. my %time;
   
2. my %name;
   
3. while(<DATA>){
   
4.         if(m{\[\S+\s+(\d+):.*\]\s+\S+\s+src:(.)}){
   
5.                 $time{$1}->{$2}++;
   
6.                 $name{$2}++;
   
7.         }
   
8. }
   
9. print "Time\ta\tb\tc\n";
   
10. my @array = sort keys %name;
    
11. my ($str1,$str2);
    
12. for $str1 (sort keys %time)
    
13. {
    
14.         print $str1."\t";
    
15.         for $str2 (sort @array)
    
16.         {
    
17.                 print "".($time{$str1}{$str2}+0)."\t";
    
18.         }
    
19.         print "\n";
    
20. }

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my (%hStat, %hPeople);
   
6. while (<DATA>){
   
7.     my $hour = $1 if (/(\d+):/g);
   
8.     my $who = $1 if (/(\w)\Z/g);
   
9.     $hStat{$hour}{$who}++;
   
10.     $hPeople{$who}++;
    
11. }
    
12. 
    
13. my @aPeople = sort {$a cmp $b} keys %hPeople;
    
14. print join ("\t", "time", @aPeople), "\n";
    
15. foreach my $hour (sort {$a <=> $b} keys %hStat){
    
16.     print $hour;
    
17.     print "\t", $hStat{$hour}{$_} // 0 for @aPeople;
    
18.     print "\n";
    
19. }
    
20. 
    
21. __DATA__
    
22. [2012-07-11 15:49:28] thread:2144002 src:a
    
23. [2012-07-11 15:49:28] thread:2144002 src:b
    
24. [2012-07-11 15:49:28] thread:2144002 src:c
    
25. [2012-07-11 15:49:28] thread:2144002 src:a
    
26. [2012-07-11 16:42:02] thread:2144002 src:a
    

复制代码

华小飞_Perl

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. print join "\t", qw( time a b c ), "\n";
   
7. my (%time_cal, @src);
   
8. while (<>) {
   
9.         chomp;
   
10.         if (/\s+(\d+).*?(\w)$/m) {
    
11.                 $time_cal{$1}{$2}++;
    
12.         }
    
13.         push @src, $2;
    
14. }
    
15. my %src = map { $_ => 1 } @src;
    
16. 
    
17. for my $time ( sort keys %time_cal ) {
    
18.         print $time, "\t";
    
19.         for my $src ( sort keys %src ){
    
20.                 print $time_cal{$time}{$src} || 0, "\t";
    
21.         }
    
22.         print "\n";
    
23. }

复制代码