Is the output only being written if ALL the variables match??
=== start===
use strict;
my $JOBSTART = 'SNBJH_3203J';
my $CONDSTART = 'CONDSTART';
my $JOBEND = 'SNBJH_3211J';
my $CONDEND = 'SNBJH_3045E';
my $JOBCANC = 'SNBJH_3258J';
my $XFER = 'SNBJH_3710J';
my $VOLUSED = 'SNBJH_3320J';
opendir DIR, '.' or die "opendir: $!";
my @files = grep /^3D2*\.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 "parsing $_\n";
if ( /$JOBSTART|$CONDSTART|$JOBEND|$CONDEND|$JOBCANC|$XFER|$VOLUSED/i
)
{
print OUT join (',', @f) . "\n";
} else {
print "skipped: '$_'";
}
}
close IN;
close OUT;
}
===end===
===
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
