例子


foreach my $f (@allfiles) { 
 
chomp $f; 
 

          print FOUT "$f\n"; 
 
 }