Mike Singleton wrote:
> Using the following code, how would I write it's output to a single csv file??
>
> === Start===
> use strict;
> my @files = glob('3*.log');
open OUT, ">outfile" or die $!;
> while (<@files>) {
Not sure if the above works. You can use a file glob inside <>, but
not sure about an array.
> my @f = split /\s+/, $_, 9;
> print join ',', @f;
print OUT join ',', @f;
> }
close OUT;
> __END__
>
> ==== End Code ====
Just open an output file and put the filehandle between the print and join.
--
,-/- __ _ _ $Bill Luebkert ICQ=162126130
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl)
-/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
