按列從左往右追加？

papagogogo

現(xiàn)在有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. }

復(fù)制代碼

papagogogo

行！paste好用哈哈

回復(fù) 2# huang6894


   

papagogogo

非常感謝！問題已經(jīng)解決了。謝謝你啦。

回復(fù) 3# huang6894