編程在線(xiàn)求助~

kamadevin

perl求助

現(xiàn)在需要處理幾個(gè)文件
想要達(dá)到如下效果
文件格式如下

文件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符分開(kāi)
請(qǐng)問(wèn)如何做到，求幫忙~

xiaoxingan99

實(shí)在不會(huì)用hash，參考以前的帖子，給出一個(gè)我寫(xiě)的復(fù)雜程序
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

回復(fù) 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. }

復(fù)制代碼

jason680

回復(fù) 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

回復(fù) 4# jason680


    一個(gè) 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. }
    

復(fù)制代碼

jason680

回復(fù) 5# MMMIX

少不一定是優(yōu),多不一定是劣

$ 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

回復(fù) 6# jason680


    你再把這么多代碼寫(xiě)命令行里我要報(bào)警抓你了

    你發(fā)個(gè)投票看看有幾個(gè)人能完全看懂的

jason680

回復(fù) 7# zhlong8

版主 你“抓"錯(cuò)人了...(我都說(shuō)了:少不一定是優(yōu),多不一定是劣)

你發(fā)一篇 教教大家如何正確編程Perl...

     

zhlong8

回復(fù) 8# jason680


    不排版就把沒(méi)用的空格和換行刪掉

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
   

復(fù)制代碼

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

復(fù)制代碼