Mike, Why are you using fopen? When I use open - (the perl way) - runs just fine!
-----Original Message----- From: Mike Singleton [mailto:[EMAIL PROTECTED]] Sent: Tuesday, September 10, 2002 8:17 AM To: [EMAIL PROTECTED] Subject: barword error 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 _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
