I agree, you need more specific about as to what you want to do here.
This is my guess...
== start ===
#! perl -w
use strict;
my @files = glob('3D21*.log');
open(OUTFILE,">myfile.csv");
foreach $file(@files){
open(INFILE,"<$file") || die "Oopsn";
while(<INFILE>){
my @f = split /s+/,$_,9;
print OUTFILE join(',',@f)."\n";
}
close(INFILE) || die "Oops";
}
close(OUTFILE);
=== End====
-----Original Message-----
From: Norris, Joseph [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 10, 2002 12:21 PM
To: 'Mike Singleton'; [EMAIL PROTECTED]
Subject: RE: output off
What do you wish to accomplish? What is your goal in looking at these files
- do you wish to examine each file in the array?
-----Original Message-----
From: Mike Singleton [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 10, 2002 9:12 AM
To: [EMAIL PROTECTED]
Subject: output off
Your right, 'open' works just fine. However, the output is just the list of
files from @files... not the parsed output. I must be on the wrong track,
sorry...
== start ===
#! perl -w
use strict;
my @files = glob('3D21*.log');
open(OUTFILE,">myfile.csv");
while(<@files>){
my @f = split /s+/,$_,9;
print OUTFILE join(',',@f)."\n";
}
=== End====
attached are some sample log file to run against.
DaVita Inc.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.385 / Virus Database: 217 - Release Date: 9/4/2002
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
