The output file (myfile.csv) is blank... any ideas out there? Thanks!
=== Start===
use strict;
my $JOBSTART = 'JOBSTART';
my $CONDSTART = 'CONDSTART';
my $JOBEND = 'JOBEND';
my $CONDEND = 'CONDEND';
my $JOBCANC = 'JOBCANC';
my $XFER = 'XFER';
my $VOLUSED = 'VOLUSED';
opendir DIR, '.' or die "opendir: $!";
my @files = grep /^3D.*\.log$/i, readdir DIR;
closedir DIR;
print "files=@files\n";
open OUT, ">myfile.csv" or die "openCSV: $!";
foreach (@files) {
print "opening $_\n";
open IN, $_ or die "open $_: $!";
while (<IN>) {
my @f = split /s+/,$_,9;
print OUT join (',', @f) . "\n" if
/$JOBSTART|$CONDSTART|$JOBEND|$CONDEND|$JOBCANC|$XFER|$VOLUSED/i;
}
close (IN);
}
close (OUT);
=== Code end ===
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
