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.
logs.zip
Description: Zip compressed data
