关于合并文件的问题

shuigui56

想请教大家一个问题，我现在有两个文件a和b，a和b的格式都是这样的，不同的数字对应不同的字母
13   r
24   l
39   o
04   i
而且a和b中可能有重复的部分，即a和b中，可能有相同的数字，但对应的字母不同。
现在则需要把它们合并成一个文件。如果一个数字对应多个字母则用&分开，并在第三列中列出它来自哪个文件夹，来自两个的话则用；分开。

不知道要怎么写，请各位高手帮帮忙，给段代码，谢谢了！

x9x9

建议给出示例数据和想要的结果~

shuigui56

就比如说a中是             b：
32   fred                        42   len
45   lucy                        32   peter
47   tom                        99    lenka
23   marry                     23    terry
而想要的结果是
32    fred&peter      a；b
45    lucy                  a
47    tom                  a
23    marry&terry    a;b
99    lenka                b
42    len                    b

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. 
   
4. my $file1 = "a.txt";
   
5. my $file2 = "b.txt";
   
6. my $file3 = "result.txt";
   
7. 
   
8. my %data_a;
   
9. my %data_b;
   
10. my %keys;
    
11. 
    
12. open (FH,$file1);
    
13. while (<FH>) {
    
14.         chomp;
    
15.          my ($key,$value) = split(/\s+/,$_);
    
16.          $keys{$key} = 1;
    
17.          $data_a{$key}=$value;
    
18. }
    
19. close FH;
    
20. 
    
21. open (FH,$file2);
    
22. while (<FH>) {
    
23.         chomp;
    
24.          my ($key,$value) = split(/\s+/,$_);
    
25.          $keys{$key} = 1;
    
26.          $data_b{$key}=$value;
    
27. }
    
28. close FH;
    
29. 
    
30. open(FH,">$file3");
    
31. foreach my $key (sort keys %keys) {
    
32.         if ($data_a{$key} && $data_b{$key}) {
    
33.                  print FH "$key\t$data_a{$key}&$data_b{$key}\t$file1;$file2\n";
    
34.          }
    
35.          elsif ($data_a{$key}) {
    
36.                  print FH "$key\t$data_a{$key}\t$file1\n";
    
37.          }
    
38.          elsif ($data_b{$key}) {
    
39.                  print FH "$key\t$data_b{$key}\t$file2\n";
    
40.          }
    
41. }
    
42. close FH;
    
43. 
    
44. print "文件合并成功！";
    
45. 
    
46. <STDIN>;

复制代码

shuigui56

非常感谢！！

x9x9

我写的很罗嗦，不过也可以实现:

1. open A,"a.txt";
   
2. 
   
3. my %ahash;
   
4. 
   
5. while ( <A> ) {
   
6. chomp;
   
7. my($anum,$aname)=split;
   
8. $ahash{$anum}=$aname;
   
9. }
   
10. 
    
11. close A;
    
12. 
    
13. open B,"b.txt";
    
14. 
    
15. my %bhash;
    
16. 
    
17. while ( <B> ) {
    
18. chomp;
    
19. my($bnum,$bname)=split;
    
20. $bhash{$bnum}=$bname;
    
21. }
    
22. 
    
23. close B;
    
24. 
    
25. open O,">hebing.txt";
    
26. 
    
27. foreach my $akey(sort keys %ahash){
    
28. foreach my $bkey(sort keys %bhash){
    
29. if ($akey eq $bkey){
    
30. print O $akey."\t".$ahash{$akey}.'&'.$bhash{$akey}."\ta\;b\n";
    
31. delete $ahash{$akey};
    
32. delete $bhash{$bkey};
    
33. }
    
34. }
    
35. }
    
36. 
    
37. foreach my $akey (keys %ahash){
    
38. print O $akey."\t".$ahash{$akey}."\ta\n"
    
39. }
    
40. 
    
41. foreach my $bkey (keys %bhash){
    
42. print O $bkey."\t".$bhash{$bkey}."\tb\n"
    
43. }
    
44. 
    
45. close O;

复制代码

ubuntuer

来个shell的

1. [root@kenthy shell]awk 'NR==FNR{a[$1]=$2}NR>FNR{if(a[$1]){print $0"&"a[$1],"a;b";a[$1]=""}else print $0,"a"}END{for(i in a)if(a[i])print i,a[i],"b"}' b a
   
2. 32 fred&peter a;b
   
3. 45 lucy a
   
4. 47 tom a
   
5. 23 marry&terry a;b
   
6. 99 lenka b
   
7. 42 len b

复制代码

shuigui56

懂了！谢谢！

liyangole

回复 4# iamlimeng


    请解释一下 定义my %keys; 作用，小弟有点不明白，请赐教。感谢

iamlimeng

就比如说a中是             b：
32   fred                        42   len
45   lucy                  ...
shuigui56 发表于 2010-05-11 17:05

定义%key是为了获得KEY（我把数据的第一列，即上述数据的阿拉伯数字列定义为KEY）清单，因为这一列有重复，比如a,b文件中都有32，通过使用HASH赋值可以去除这种重复，保证只访问一次。