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

baiguihuajl

如何用perl,按照每個(gè)文件第一列的名字將很多個(gè)txt文件合并，并且每一項(xiàng)都保留，存在的就打印出來(lái)，不存在的就用0表示
如：將1.txt 2.txt 3.txt 4.txt 四個(gè)文件合并：
1.txt:
a        1
b        2
c        2
d        4
e        1
f        3
g        1
s        2
h        1
2.txt:
a        1
c        1
d        2
e        3
f        1
g        2
h        2
i        2
j        1
3.txt:
b        1
c        2
d        1
e        2
f        2
g        2
h        1
4.txt:
a        2
b        1
c        2
d        3
e        4
f        5
g        1
h        3
合并以后變成這樣的效果（可以沒有順序輸出）：
d        4        2        1        3
c        2        1        2        2
i        0        2        0        0
h        1        2        1        3
e        1        3        2        4
f        3        1        2        5
b        2        0        1        1
g        1        2        2        1
j        0        1        0        0
s        2        0        0        0
a        1        1        0        2

baiguihuajl

我的程序是：

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

復(fù)制代碼

結(jié)果是：
a        1        1        2
h        1        1        2        1        3
b        1        2        1        1
c        1        2        1        2        2
s        1        2
d        1        4        2        1        3
f        1        3        1        2        5
a        1        1        1        2
g        1        1        2        2        1
e        1        1        3        2        4
j        1        1
i        1        2

有誰(shuí)可以幫我改一下，謝謝~~~

Okelani

回復(fù) 1# baiguihuajl

#!/usr/bin/perl
@_ = qw[1.txt 2.txt 3.txt 4.txt];
for my $i ( 0 .. $#_ ) {
    @ARGV = $_[$i];
    while (<>) {
        ( $a, $b ) = split;
        $_{$a} ||= [ (0) x @_ ];
        $_{$a}[$i] = $b;
    }
}

while ( ( $a, $b ) = each %_ ) {
    print join( "\t", $a, @$b ), "\n";
}


   

baiguihuajl

能幫我改一下代碼嗎？而且如果我要合并很多的文件的話，應(yīng)該怎樣？謝謝~~~
回復(fù) 3# Okelani


   

Okelani

回復(fù) 4# baiguihuajl

@_ = qw[1.txt 2.txt 3.txt 4.txt 5.txt 6.txt 7.txt 8.txt];
   

baiguihuajl

1000個(gè)的話怎么寫？==謝謝
回復(fù) 5# Okelani


   

Okelani

回復(fù) 6# baiguihuajl

1.     @_ = map { $_ . '.txt' } 1 .. 1000;

復(fù)制代碼

或

my $looo = 1000;
for my $i ( 0 .. $looo - 1 ) {
    @ARGV = ( $i + 1 ) . '.txt';
    ...
    $_{$a} ||= [ (0) x $looo ];
    ....




10000個(gè)的話怎么寫

my $loooo = 10000;
for my $i ( 0 .. $loooo - 1 ) {
...

jason680

回復(fù) 4# baiguihuajl

>> ...合并以后變成這樣的效果（可以沒有順序輸出）：
>> ...合并很多的文件的話...

$ perl keys.pl *.txt
a        1        1        0        2
b        2        0        1        1
c        2        1        2        2
d        4        2        1        3
e        1        3        2        4
f        3        1        2        5
g        1        2        2        1
h        1        2        1        3
i        0        2        0        0
j        0        1        0        0
s        2        0        0        0

$ cat keys.pl
use strict;
use warnings;

my(%hKey, %hVal);

my @aFile = @ARGV;
while(<>){
  chomp;
  my($sKey, $sVal) = split;
  $hVal{$sKey}{$ARGV} = $sVal;
}

foreach my $sKey(sort keys %hVal){
  my $sVal = "";
  foreach(@aFile){
    $hVal{$sKey}{$_} = 0 if(!exists $hVal{$sKey}{$_});
    $sVal .= "\t$hVal{$sKey}{$_}";
  }
  print "$sKey$sVal\n";
}


   

sunzhiguolu

回復(fù) 1# baiguihuajl
您好, 看了您的代碼. 發(fā)現(xiàn)您的問(wèn)題屬于代碼邏輯問(wèn)題:
問(wèn)題代碼范圍: 19~25 行位置.

for($i=1;$i<=4;$i++){
        open(F2,"$i.txt");
        while(<F2>){
                chomp;
                @b=split(/\t/,$_);
                foreach($b[0]){
                        if(exists $lines{$b[0]}){   #邏輯錯(cuò)誤的地方
                                $lines{$b[0]}.="\t".$b[1];
                        }else{
                                $lines{$_}.="\t"."0";
                        }
                }
        }
        close(F2);
}

紅色:可以刪除部分

1. 
   
2. #添加的代碼:
   
3. sub gen_hash_by_file{
   
4.     my ($file, %h_file) = shift;
   
5.     open (my $fh_file, '<', $file);
   
6.     while (<$fh_file>){
   
7.         chomp;
   
8.         my ($id, $value) = split /\s+/;
   
9.         $h_file{$id} = $value;
   
10.     }
    
11.     close ($fh_file);
    
12.     %h_file;
    
13. }

復(fù)制代碼

1. 
   
2. #修改后的代碼: 14~28 行
   
3. for (my $i = 1; $i <= 4; $i++ ){
   
4.     my %h_file = gen_hash_by_file($i . '.txt');
   
5.     foreach my $k (keys %lines){
   
6.         if (exists $h_file{$k}){
   
7.             $lines{$k} .= "\t" . $h_file{$k};
   
8.         }else{
   
9.             $lines{$k} .= "\t" . 0;
   
10.         }
    
11.     }
    
12. }
    

復(fù)制代碼

xie3ks

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my %content;
   
7. 
   
8. while(my $file_name = <*.txt>)
   
9. {
   
10.    open FILE_NAME, $file_name;
    
11.    while(<FILE_NAME>)
    
12.    {
    
13.        my @line = split(/\s+/);
    
14.        $content{$line[0]}{$file_name} = $line[1];
    
15.    }
    
16.    print " "x5,$file_name;
    
17. }
    
18. 
    
19. print "\n";
    
20. 
    
21. foreach my $key_out(sort(keys %content))
    
22. {
    
23.     print "$key_out"," "x5;
    
24.     while(my $file_name = <*.txt>)
    
25.     {
    
26. 
    
27.          if (defined $content{$key_out}{$file_name})
    
28.          {
    
29.              print $content{$key_out}{$file_name}," "x10;
    
30.          }
    
31.          else
    
32.          {
    
33.              print 0, " "x10;
    
34.          }
    
35.     }
    
36.     print "\n";
    
37. }

復(fù)制代碼

回復(fù) 1# baiguihuajl