Perl :: 최대 실행 값과 최대 값을 찾으려면

Question

파일에서 발생 횟수를 찾으십시오. 또한 최대 값과 최소값을 찾을 수 있습니다. Im는 일어날 수있는 것을 찾을 수 있습니다.

stat.pl <your data file> 

추가 자신을 총 :

파일

SQL :: select * from person ...etc , Time Taken :: 30 
SQL :: select * from emp ...etc , Time Taken :: 5 
SQL :: select * from home ...etc , Time Taken :: 20 
SQL :: select * from emp ...etc , Time Taken :: 30 
SQL :: select * from person ...etc , Time Taken :: 10 
SQL :: select * from home ...etc , Time Taken :: 20 
SQL :: select * from person ...etc , Time Taken :: 50 

출력은 enter code here

SQL     No of occu  total Min Max 
select * from person 3     90 10 50 
select * from emp  2     35 5 30 

Answer 1

#!/usr/bin/perl 


# sql -> {times, min, max} 
my $data = {}; 
while (<>) { 
    if (m{SQL.*?(select.*?\.\.\.).*?Taken\s\:\:\s(\d+)}xmsi) { 
     my ($sql, $time) = ($1, $2); 
     my $times = $data->{$sql}->{times} || 0; 
     my $min = $data->{$sql}->{min} || $time; 
     my $max = $data->{$sql}->{max} || $time; 
     $max = $time if $time > $max; 
     $min = $time if $time < $min; 
     $times++; 

     $data->{$sql}->{min} = $min; 
     $data->{$sql}->{max} = $max; 
     $data->{$sql}->{times} = $times; 
    } 
} 

print "SQL No of occu total Min Max\n"; 
foreach my $sql(sort keys %{$data}) { 
    print "$sql $data->{$sql}->{times} total $data->{$sql}->{min} $data->{$sql}->{max}\n"; 
} 

실행해야합니다.