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);
===
Mike Singleton
Network Analyst
(253) 272-1916 x1259
(253) 405-1968 (cellular)
[EMAIL PROTECTED]
DaVita Inc.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
