Shell Programming and Scripting

% touch test{1..5}.log
% ls
test1.log  test2.log  test3.log  test4.log  test5.log
% perl -MData::Dumper -le'
  @a = glob "*.log";
  print Dumper \@a
  '
$VAR1 = [
          'test1.log',
          'test2.log',
          'test3.log',
          'test4.log',
          'test5.log'
        ];

open(MYOUTFILE, "fps.log"); 
open(RESULTFILE, ">result.txt"); 
my $total=0; 
my $lines=0;
while (<MYOUTFILE>) { chomp; my $value = (split /([,:])/)[2]; $total=$value+$total; $lines++; }
print RESULTFILE $total/$lines;

while (<MYOUTFILE>) { chomp; my $value = (split /([,:])/)[2]; $total=$value+$total; $lines++; }
print RESULTFILE $total/$lines;

#!/usr/bin/perl

use warnings;
use strict;

my @log_files = glob "*.log";
my ($total, $lines);

for my $log_file (@log_files) {

(my $res_file = $log_file) =~ s/\.log$/.res/; 

  open my $log_fh, '<', $log_file
    or warn "open $log_file: $!\n";

  open my $res_fh, '>', $res_file
    or die "open $res_file: $!\n";
  
  $total = $lines = 0;    
    
  while (<$log_fh>) {
    $total += (split /[,:]/)[2];
    ++$lines;
    }   

  print $res_fh $total / $lines, "\n";    
  
  close $log_fh
    or warn "close $log_file: $!\n";
    
  close $res_fh
    or warn "close $res_file: $!\n";
  }