Re^2: selcting a specific file

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

In Section Seekers of Perl Wisdom