#!/usr/bin/perl -w
 
use strict;
use Benchmark;
 
my $file = shift;
my ($start, $end);
 
$start = new Benchmark;
brian($file);
$end = new Benchmark;
calc($start, $end, 'brian');
 
$start = new Benchmark;
japhy($file);
$end = new Benchmark;
calc($start, $end, 'japhy');
 
sub calc {
   my ($start, $end, $test) = @_;
 
   my $diff = timediff($end, $start);
   print "Time taken on ", $test, " ",timestr($diff, 'all'), " seconds\n";
}
 
sub brian {
   my $file = shift;
 
   open(my $in, '<', $file) or die "error: open $file: $!";
   for (1..1000) {
      seek($in, 0, 0);
      my @lines = grep length(), map { s/#.*//; s/^\s+|\s+$//g; $_ } <$in>;
   }
   close($in);
}
 
sub japhy {
   my $file = shift;
 
   open(my $in, '<', $file) or die "error: open $file: $!";
   for (1..1000) {
      seek($in, 0, 0);
      my @lines = grep length(), map { s/#.*//; s/^\s+//g; s/\s$//g; $_ } <$in>;
   }
   close($in);
}