[已解決]有很多有兩列的txt文件，根據文件的第一列合并，謝謝

baiguihuajl

有很多有兩列的txt文件，根據文件的第一列合并，之后每列根據每個txt文件寫，例如有3個txt文件，
1.txt：
a  2
b  3
c  4
2.txt:
b  1
c  3
d  2
e  12
3.txt:
c  2
d  1
e  2
f  1
合并成：
a  2  0  0
b  3  1  0
c  4  3  2
d  0  2  1
e  0  12  2
f  0  0  1
我的代碼是

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

復制代碼

代碼19行有問題，怎么改，想表示如果存在%hash1的鍵值，麻煩大家?guī)臀铱聪�，感激不盡~~~

baiguihuajl

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

復制代碼

sunzhiguolu

回復 2# baiguihuajl
輸出結果對嗎?

   

baiguihuajl

對的~

回復 3# sunzhiguolu