opendir(DIR,'.') or die $!;
@read=readdir(DIR);
close(DIR);
foreach(@read){
if($_ =~/^f\d.txt$/){
push(@read1,$_);
}
}
@read2=sort(@read1);
foreach (@read2){
open(FILE,$_) or die $!;
push(@file,<FILE>);
close(FILE);
push(@file,"LINE\n");
}
$string=join('',@file);
$string=~s/\n/#/g;
($val1,$val2,$val3)=split('LINE#',$string);
@val1=split('#',$val1);
@val2=split('#',$val2);
@val3=split('#',$val3);
foreach $i(0 .. scalar @val1){
print "$val1[$i]\t$val2[$i]\t$val3[$i]\n";
}
[download]