合并问题

codeternity

各位大侠，如果有两个文件是这样的：
new1.txt
SH    AA    XX
GZ    BB    YY
SZ    CC    ZZ
BJ     DD   WW
new2.txt
SH
GZ
SZ
BJ
TJ
HN
NB
我想根据第二个文件补全第一个文件，没有的用-代替，即
SH    AA    XX
GZ    BB    YY
SZ    CC    ZZ
BJ     DD   WW
TJ     -       -
HN    -       -
NB    -       -
应该怎么实现呢

mcshell

回复 1# codeternity

1. perl -alne '$F[1]?$h{$F[0]}="$F[1] $F[2]":$h{$_}?print "$_ $h{$_}":print "$_ - -"' new1.txt new2.txt
   

复制代码

codeternity

回复 2# mcshell
请问大侠，这个在windows下应该怎么写呢

   

yakczh_cu

1. use 5.01;
   
2. 
   
3. $file1="news1.txt";
   
4. $file2="news2.txt";
   
5. 
   
6. %title=();
   
7. 
   
8. open FH,$file1;
   
9. while(<FH>){
   
10.        
    
11.   @fields=split/\s+/ ;
    
12.   chomp;
    
13. $title{$fields[0]}=$_;
    
14. }
    
15. close FH;
    
16. 
    
17. open FH,$file2;
    
18. while(<FH>){
    
19.   chomp;
    
20.   $title{$_}=$_."    -" x2  if !$title{$_};
    
21.        
    
22.        
    
23. }
    
24. 
    
25. for my $key (keys %title){
    
26.        
    
27.         say $title{$key};
    
28.        
    
29. }

复制代码

mcshell

回复 3# codeternity

1. perl -alne "$F[1]?$h{$F[0]}=qq($F[1] $F[2]):$h{$_}?print qq($_ $h{$_}):print qq($_ - -)" new1.txt new2.txt

复制代码

kernel69

try

1. perl -lane '!$h{$F[0]}++ and $#F==2 ? print : print "$_\t-\t-" ' new1.txt new2.txt

复制代码

回复 1# codeternity