Re^2: selcting a specific file


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re^2: selcting a specific file

by Anonymous Monk

on Oct 22, 2007 at 21:34 UTC ( [id://646588]=note: print w/replies, xml )

Need Help??

in reply to Re: selcting a specific file
in thread selcting a specific file

@files = grep { /\.log$/ } readdir ($DIR);
foreach my $x (@files){
open READFILE, "......";
open WRITEFILE, ">......";
while(<READFILE>){
chomp;
my @parts = split(/\s/, $_);
print WRITEFILE $parts[1], " ", $parts[0], "\n";
}
close WRITEFILE;
close READFILE;
[download]

this is the original code