Mike Singleton wrote:
> 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;
>
'print <something> if(EXP)', make sure the EXP is true. otherwise, you will
have nothing to print and your file will be empty. also, you should
consider moving your split function inside the if() statement so only when
the if(EXP) exp is true, you do the split:
if(EXP){
#-- split
#-- print
}
you currently have:
#-- split
print <something> if(EXP)
which could be doing a lot of uneccessary split. remember that split is kind
of expensive and you will wasting a lot of time donig things that you might
never need.
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
