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 ==
===
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
