I have tried all the excellent suggestions, and the results from the output look like:
== Start output====
3D201A10.log3D201A11.log3D206060.log3D206768.log3D20D7F8.log3D210920.log3D210921.log3D210922.log3D210923.log3D210924.log3D210925.log3D210926.log3D210A4C.log3D212540.log3D216B90.log3D216B91.log3D21B1E0.log3D21B8E8.log3D225AA0.log3D225AA1.log3D225AA2.log3D225AA3.log3D225AA4.log3D225AA5.log3D225AA6.log3D225BCC.log3D2276C0.log3D22BD10.log3D22BD11.log3D230360.log3D230A68.log3D23AC20.log3D23AC22.log3D23AC23.log3D23AC24.log3D23AC25.log3D23AC26.log3D23AC27.log3D23AD51.log3D23ADA6.log3D23ADAE.log3D23ADB1.log3D23ADB4.log3D23ADBA.log3D23ADBF.log3D23ADC8.log3D23C840.log3D23E40E.log3D240E90.log3D240E91.log3D2454E0.log3D245BE8.log3D24FDA0.log3D24FDA2.log3D24FDA3.log3D24FDA4.log3D24FDA5.log3D24FDA6.log3D24FDA7.log3D24FECC.log3D2519C0.log3D256010.log3D256011.log3D25A660.log3D25AD68.log3D25F8EC.log3D264F20.log3D264F21.log3D264F22.log3D264F23.log3D264F24.log3D264F25.log3D264F26.log3D26504C.log3D266B40.log3D26B190.log3D26B191.log3D26F7E0.log3D26FEE8.log3D27AC2C.log3D27AC54.log3D27AC5B.log3D27AC63.log3D284960.log3D285068.log3D295490.log3D295491.log3D299AE0.log3D29A1E8.log3D29CA0E.log3D29CF9A.log3D2A43A0.log3D2A43A1.log3D2A43A2.log3D2A43A3.log3D2A43A4.log3D2A43A5.log3D2A43A6.log3D2A44CC.log3D2A5FC0.log3D2AA610.log3D2AA611.log3D2AEC60.log3D2AF368.log3D2B00F2.log3D2FBDF1.log3D2FC8A0.log3D2FD1A7.log3D2FDB8B.log3D2FE648.log3D2FE64F.log3D2FE654.log3D2FE65A.log3D2FE666.log3D2FE66A.log3D2FE66E.log3D2FE671.log3D2FE674.log3D2FEC10.log3D2FEC11.log
=== End ===
Looks likes I am just listing the files from the glob statement?
>>> Timothy Johnson <[EMAIL PROTECTED]> 09/09/02 02:04PM >>>
You can always just do a
foreach(@files){
open(INFILE,$_) || die "Could not open file $_! $!";
and then do the rest, or you can use the while(<>) magic.
-----Original Message-----
From: $Bill Luebkert [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 09, 2002 2:00 PM
To: Mike Singleton
Cc: [EMAIL PROTECTED]
Subject: Re: progress!
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
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
DaVita Inc.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
