按列从左往右追加？

papagogogo

现在有M个N行1列的文件，需要把它们按照各自的列从左往右“追加”成一张N行M列的大表，请问有什么好办法吗，谢谢各位。

huang6894

linux的paste不行吗？

huang6894

1. 
   
2. #/usr/bin/perl -w
   
3. my %h;
   
4. my @allfile = glob("$ARGV[0]/*.txt");
   
5. for $f (@allfile){
   
6. open FILE,$f;
   
7. my $n;
   
8. map{chomp;$h{$n ++}.="$_\t";}<FILE>;
   
9. }
   
10. for my $key (keys %h){
    
11. print "$h{$key}\n";
    
12. }

复制代码

papagogogo

行！paste好用哈哈

回复 2# huang6894


   

papagogogo

非常感谢！问题已经解决了。谢谢你啦。

回复 3# huang6894