求助：文本比较处理

h.jian

目标：将文本A和文本B进行比较。
A的内容如下：
11|
22|
33|
44|
B的内容如下:
11|aaa|
22|bbb|
33|ccc|

比较后能分为4个文件：
文件aaa：  11|aaa|

文件bbb：  22|bbb|

文件ccc：  33|ccc|

文件error：  44|
（因为A文本的“44|”数据在B文本中不存在）

本人才开始学习perl，麻烦能给个模版，谢谢！

h.jian

有米人帮忙看看的？

Perl_Er

用hash

h.jian

我知道这个思路，就是没测出来，头痛ing

h.jian

有好心人给整理个模版不？感谢

wfnh

也是几句的事情··

ynchnluiti

1. 
   
2. #!/usr/bin/env perl
   
3. #
   
4. 
   
5. use strict;
   
6. use warnings;
   
7. 
   
8. @ARGV = qw(A B);
   
9. 
   
10. my $nextf = 0;
    
11. my %hash = ();
    
12. 
    
13. while (<>) {
    
14.     if ($nextf == 1) {
    
15.         my @t = split /\|/;
    
16. 
    
17.         if (defined $hash{$t[0]}) {
    
18.             `echo -n "$_" > $t[1]`;
    
19.             $hash{$t[0]} = 1; # delete entry if no duplicate key in file B
    
20.         }
    
21.     } else {
    
22.         chomp;
    
23.         $hash{(split /\|/)[0]} = 0;
    
24.     }
    
25. } continue {
    
26.     $nextf = 1 if eof;
    
27. }
    
28. 
    
29. #`rm -f error`;
    
30. foreach (keys(%hash)) {
    
31.     `echo -n "$_|\n" >> error` if ($hash{$_} <= 0);
    
32. }
    
33. 
    
34. __END__
    
35. A:
    
36. 11|
    
37. 22|
    
38. 33|
    
39. 44|
    
40. B:
    
41. 11|aaa|
    
42. 22|bbb|
    
43. 33|ccc|
    

复制代码

ynchnluiti

回复 7# ynchnluiti


    不一定适用于其它不同内容、不同格式的文件

MYSQLER

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. open (B, "<", "b.txt") or die "Can't open a.txt: $!";
   
5. 
   
6. while (<B>) {
   
7.         chomp;
   
8.         my @b1 = split /\|/ ;
   
9.         open (A, "<", "a.txt") or die "Can't open b.txt: $!";
   
10.         while (<A>) {
    
11.                 chomp;
    
12.                 my @a1= split /\|/;
    
13.                 if ($a1[0] eq $b1[0]) {
    
14.                         my $file = $b1[1];
    
15.                         open (STDOUT, ">", "$file") or die "Can't open test.txt: $!";
    
16.                         print $b1[0] . "|" . $b1[1] . "|" .  "\n";
    
17. 
    
18.                 }
    
19.                 else {
    
20.                         open (STDOUT, ">", "error.txt") or die "Can't open error.txt: $!";
    
21.                         print $a1[0] . "|" . "\n";
    
22. }
    
23.         }
    
24.         close(A);
    
25. }
    
26. close(B);

复制代码

h.jian

谢谢各位了，特别感谢7搂、9搂的哥们