#!perl -w
my $total   = 0;
my $lines   = 0;
my $infile  = "fps.csv";
my $outfile = "out.txt";

# 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 whitespaces only
  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: $!";

C:\>
C:\>
C:\>type fps.pl
#!perl -w
my $total   = 0;
my $lines   = 0;
my $infile  = "fps.csv";
my $outfile = "out.txt";

# 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 whitespaces only
  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: $!";

C:\>
C:\>

C:\>
C:\>perl fps.pl

C:\>
C:\>

C:\>
C:\>type out.txt
30.1827114285714
C:\>
C:\>