Re: something awry
on Tue, 10 Sep 2002 17:39:25 GMT, [EMAIL PROTECTED] (Mike
Singleton) wrote:
> my @files = glob('3D2*.log');
>
> my @f = split /s+/,$_,9;
What's in $_? Did you mean /\s+/ ?
>
> print OUTF join(',',@f)."\n";
Never openend OUTF
--
felix
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
something awry
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);
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
