I am doing something awry here, the first part of the script doesn't seem to
replace all the spaces with commas and strip everything before the date....
my @files = glob('3D2*.log');
my @f = split /s+/,$_,9;
print OUTF join(',',@f)."\n";
close (OUTF);
open(OUTF,">myfile.csv");
local @ARGV = @files;
while (<>) {
print OUTF if /$JOBSTART/ ||
/$CONDSTART/ ||
/$JOBEND/ ||
/$CONDEND/ ||
/$JOBCANC/ ||
/$XFER/ ||
/$VOLUSED/;
}
close (OUTF);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
