On Tue, 10 Sep 2002, Mike Singleton wrote:
> 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 ===
Your split code should be
my @f = split /\s+/,$_,9;
instead of
> my @f = split /s+/,$_,9;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
