编程在线求助~

kamadevin

perl求助

现在需要处理几个文件
想要达到如下效果
文件格式如下

文件1
a 1
b 2
c 3
d 4
e 5

文件2
a 6
b 7
d 8
e 9
f 10

想整合在一起成为
a 1 6
b 2 7
c 3 0
d 4 8
e 5 9
f 0 10

中间以 table符分开
请问如何做到，求帮忙~

xiaoxingan99

实在不会用hash，参考以前的帖子，给出一个我写的复杂程序
open FF, "e:/perl/A.txt";
while(<FF>){
chomp;
my ($key, $value) = split / /;
$h{$key}=$value;

}

open FF1, "e:/perl/B.txt";
while(<FF1>){
chomp;
my ($key1, $value1) = split / /;
$h1{$key1}=$value1;

}
foreach $a ("a".."f"){
        unless ($h{$a}){
                $h{$a}=0;
                }
                        unless ($h1{$a}){
                $h1{$a}=0;
                        }
                                print "$a\t$h{$a}\t$h1{$a}\n";
        }

songyc_2015

回复 1# kamadevin

1. #!/usr/bin/env perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my %hash;
   
7. 
   
8. open my $FHA, "$ARGV[0]";
   
9. while (<$FHA>)
   
10. {
    
11.         chomp;
    
12.         /(\S+)\s+(\S+)/;
    
13.         $hash{$1} = $2;
    
14. }
    
15. close $FHA;
    
16. 
    
17. open my $FHB, "$ARGV[1]";
    
18. while (<$FHB>)
    
19. {
    
20.         chomp;
    
21.         /(\S+)\s+(\S+)/;
    
22.         $hash{$1} = length($hash{$1}) ? $hash{$1}."\t".$2: "0\t".$2;
    
23. }
    
24. close $FHB;
    
25. 
    
26. for (sort { $a cmp $b } keys %hash)
    
27. {
    
28.         $hash{$_} = $hash{$_} . "\t0" if (scalar split(/\t/, $hash{$_})) == 1;
    
29.         print "$_\t$hash{$_}\n";
    
30. }

复制代码

jason680

回复 1# kamadevin

$ perl combin.pl f1 f2
a 1 6
b 2 7
c 3 0
d 4 8
e 5 9
f 0 10

$ cat combin.pl
#! /usr/bin/env perl
use strict;
use warnings;

message() if(@ARGV < 1);

sub message{
  print<<EOF;
Usage: $0 file1 [file2 [file3 ...]]
Ex:    $0 f1 f2
EOF
  exit(1);
}
my $sCnt = 0;
my %hKey;
my @aKey;
foreach my $sFile (@ARGV){
  $sCnt++;
  open(FHin, "<$sFile") or die "can't open $sFile\n";
  while(<FHin>){
    my($sKey, $sVal) = split;
    if(! exists $hKey{$sKey}){
      push @aKey, $sKey;
    }
    $hKey{$sKey}[$sCnt] = $sVal;
  }
  close(FHin);
}
foreach my $sKey (@aKey){
  my $sOut = "";
  foreach( 1 .. $sCnt){
    $hKey{$sKey}[$_] += 0;
    $sOut .= " $hKey{$sKey}[$_]";
  }
  print "$sKey$sOut\n";
}

   

MMMIX

回复 4# jason680


    一个 hash 足矣：

1. 
   
2. use v5.10;
   
3. 
   
4. my %record;
   
5. for my $idx (0..$#ARGV) {
   
6.         open(my $h, "<", "$ARGV[$idx]")
   
7.                 or die "Cannot open $ARGV[$idx]: $!";
   
8.         while (<$h>) {
   
9.                 chomp;
   
10.                 my @r = split / /, $_, 2;
    
11.                 $record{$r[0]}->[$idx] = $r[1];
    
12.         }
    
13. }
    
14. 
    
15. for my $k (sort keys %record) {
    
16.         $#{$record{$k}} = $#ARGV;
    
17.         my @v = map { $_ ? $_ : 0 } @{$record{$k}};
    
18.         say "$k, @v";
    
19. }
    

复制代码

jason680

回复 5# MMMIX

少不一定是优,多不一定是劣

$ perl -lane '
{
  $f=$ARGV,$c++ if($ARGV ne $f);
  ($k, $v) = split;
  $h{$k}[$c] = $v;
}
END{
  $k=$_,print"$k @{[map{$h{$k}[$_]+0}(1..$c)]}" for(sort keys %h);
}' f1 f2
a 1 6
b 2 7
c 3 0
d 4 8
e 5 9
f 0 10


   

zhlong8

回复 6# jason680


    你再把这么多代码写命令行里我要报警抓你了

    你发个投票看看有几个人能完全看懂的

jason680

回复 7# zhlong8

版主 你“抓"错人了...(我都说了:少不一定是优,多不一定是劣)

你发一篇 教教大家如何正确编程Perl...

     

zhlong8

回复 8# jason680


    不排版就把没用的空格和换行删掉

1. perl -lane '$f=$ARGV,$c++if$ARGV ne$f;$h{$F[0]}[$c]=$F[1]}{$"="\t";$k=$_,print"$k\t@{[map{$h{$k}[$_]+0}1..$c]}"for sort keys%h' f1 f2
   

复制代码

sunzhiguolu

1. perl -anle '{($k,$v)=@F;if(@ARGV){$h{$k}=[$v];next}if($h{$k}){$h{$k}->[1]=$v}else{$h{$k}=[0,$v]}}END{print join (" ", $_, $h{$_}->[0], ($h{$_}->[1] // 0)) for sort keys %h}' a b

复制代码