[已解決]~~用perl將幾個txt文件按照每個文件第一列相同名字合并，謝謝

baiguihuajl

如何用perl,按照每個文件第一列的名字將很多個txt文件合并，并且保留第一列存在相同名字的數值：
如將文件1.txt和2.txt和3.txt...合并
1.txt:
a        1
b        2
c        3
d        4
e        5
2.txt:
a        2
c        5
d        2
e        1
f        2
3.txt:
b        3
c        5
d        2
e        5
s        5
合并成:
c        3        5        5
d        4        2        2
e        5        1        5

b114213903

試試用HASH

baiguihuajl

能具體告訴我這么寫代碼嗎？雖然知道哈希，但是不知道怎么用，而且將多個txt文件合并的循環也不會。。。謝謝哈~
回復 2# b114213903


   

MMMIX

回復 3# baiguihuajl


    先別想 hash 或是循環什么的了。這個問題你倒是有思路沒有呀？沒有思路（逐步描述的偽代碼），就先去想思路；想清楚，有思路了，直接把它翻譯成 Perl 代碼就完了。要是翻譯過程中有什么問題，可以發貼問。

ba_du_co

一個思路

1. use 5.010;
   
2. my $c = 1 + @ARGV;
   
3. while (<>) {
   
4.     ( $a, $b ) = split;
   
5.     push @{ $_{$a} ||= [$a] }, $b;
   
6. }
   
7. $c - @$_ or say join "\t", @$_ for values %_;
   

復制代碼

perl join.pl 1.txt 2.txt 3.txt 4.txt 5.txt

baiguihuajl

好的，謝謝~~~回復 4# MMMIX


   

baiguihuajl

可以做出來，太感謝你了，我還要琢磨一下每句話什么意思~~~回復 5# ba_du_co


   

baiguihuajl

1. for($i=1;$i<=4;$i++){
   
2.         open(DATA,"$i.txt");
   
3.         while(<DATA>){
   
4.                 chomp;
   
5.                 @line=split(/\t/,$_);
   
6.                 if($i == 1){
   
7.                         $hash{$line[0]}=$line[1];
   
8.                         $num{$line[0]}=1;       
   
9.                 }else{
   
10.                         if(exists $hash{$line[0]}){
    
11.                                 $hash{$line[0]}.="\t".$line[1];
    
12.                                 $num{$line[0]}++;
    
13.                         }
    
14.                 }
    
15.         }
    
16.         close(DATA);
    
17. }
    
18. 
    
19. foreach(keys %num){
    
20.         if($num{$_} == 4){
    
21.                 print "$_\t$hash{$_}\n";
    
22.         }
    
23. }

復制代碼

還有一個比較容易看懂的代碼~~~

2013fish

perl 非常好用，謝謝高手。