请教一个问题

mayong801030

有两个文件A，B。两个文件中都有两列 id ，name

A文件

abc   123
vff      456

B文件

abc   789
poi    100

如果B文件中的id列在A文件中有就生成一个新文件在id，name列，后面再追加一列之值为C
如果B文件中的id列在A文件中没有就在新文件中id，name列，后面再追加一列之值为A
如果A文件中的id列在B文件中没有就在新文件中id，name列，后面再追加一列之值为D

例如上面的A，B文件生成的新文件
C文件

abc   123    C
vff      456    D
poi    100     A

上面文件之间的分隔符是Tab键

请问大家有什么简单的实现方法么

兰花仙子

原帖由 mayong801030 于 2006-2-25 16:04 发表
有两个文件A，B。两个文件中都有两列 id ，name

A文件

abc   123
vff      456

B文件

abc   789
poi    100

如果B文件中的id列在A文件中有就生成一个新文件在id，name列，后面再追加一列之值为C ...

产生的新文件c的内容，到底是以a为准还是以b为准呢？偶听你的意思是前2种以b为准，第3种以a为准。
这个用shell也可以写，但偶想用perl似乎更简单些？随手写一个仅供参考：

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. my (%hashA,%hashB);
   
5. open (A,"a") or die $!;
   
6. $hashA{(split)[0]} = $_ while(<A>);
   
7. close A;
   
8. open (B,"b") or die $!;
   
9. $hashB{(split)[0]} = $_ while(<B>);
   
10. close B;
    
11. 
    
12. open (C,">>","c") or die $!;
    
13. for (keys %hashB){
    
14.     if ($hashA{$_}){
    
15.         chomp $hashB{$_};
    
16.         print C "$hashB{$_} C\n";
    
17.     }else{
    
18.         chomp $hashB{$_};
    
19.         print C "$hashB{$_} A\n";
    
20.     }
    
21. }
    
22. for (keys %hashA){
    
23.     unless ($hashB{$_}){
    
24.         chomp $hashA{$_};
    
25.         print C "$hashA{$_} D\n";
    
26.     }
    
27. }
    
28. close C;

复制代码

woodie

awk版：

1. awk 'FILENAME=="A" {
   
2.   a[$1]=$2 FS "D";}
   
3. FILENAME=="B" {
   
4.   if (a[$1]) sub(/D$/, "C", a[$1])
   
5.   else a[$1]=$2 FS "A";}
   
6. END{
   
7.   for (i in a) print i, a[i];}' A B >C
   

复制代码