What am I fumbling here??
Errror: Bareword 'OUTFILE' not allowed while "strict subs" in use.
== Start ==
#! perl -w
use strict;
my @files = glob('3D21*.log');
fopen(OUTFILE,">>myfile.csv");
while(<@files>){
my @f = split /s+/,$_,9;
print OUTFILE join(',',@f)."\n";
}
=== End ==-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
