Shell Programming and Scripting

# Find filenames containing 'log' in current working directory
system("dir /b | find \".log\" /I > FPSList.txt");

open(LISTFILE, "<FPSList.txt") || die "Can't find FPSList.txt in current folder. Stopped execution";
@marklist = <LISTFILE>;

open(FILE, "ResultList.txt")
@resultlist=<amifile>;

#!perl -w
my $total   = 0;
my $lines   = 0;
my $infile  = @marklist;
my $outfile = @resullist;

# read $infile and process it
open (IN, "<", $infile) or die "Can't open $infile for reading: $!";
while (<IN>) {
  next if /^\s*$/;                  # ignore blank lines or lines that have only whitespaces
  chomp;                            # remove EOL character
  $total += (split /[,:]/)[1];      # running total of the FPS value
  $lines++;                         # increment the line number

close (IN) or die "Can't close $infile: $!";

# now write to $outfile
open (OUT, ">", $outfile) or die "Can't open $outfile for writing: $!";
print OUT $total/$lines;            # average is the total of FPS values divided by linecount
close (OUT) or die "Can't close $outfile: $!";
}