#!/usr/bin/env perl
use 5.010; use strict; use warnings;
my $low = 999999999; my $lowfile; my $lowline;
for my $f (@ARGV){
open my $fd, '<', $f or die $!;
while(<$fd>){
if(/SCF Done\s*=\s*([\d\.]+)/ and $1 < $low){
$low = $1;
$lowfile = $f;
$lowline = $.;
}
}
close $fd;
}
say "File '$lowfile' contains lowest SCF Done value of $low on line $l
+owline";
This took 10 minutes, half of which was spent preparing the data files for testing. Next time you want to "receive" your work done for you, maybe it'd be smart to pay a programmer for an hour of work and spend the rest of the week struggling on a paid vacation.
Aaron B.
Available for small or large Perl jobs and *nix system administration; see my home node.