差异筛选问题

yestreenstars

回复 18# newfinder

那你得给出初始文本和目标文本
   

pitonas

data1.txt 和 data2.txt 有多少行 ~ {:2_172:}

回复 20# newfinder


   

pitonas

my friend ~ {:2_172:}

1. #!/usr/bin/perl
   
2. # gensource.pl
   
3. 
   
4. for my $RANGE ( 1 .. 50 ) {                 # change: 50
   
5.     my $BEGIN = 0;
   
6.     my $add   = int rand 10;                # change: 10
   
7.     for my $i ( 1 .. 1000 + $add ) {        # change: 1000
   
8.         my $r1 = $BEGIN + 1 + int rand 5;    # change: 5
   
9.         my $r2 = $r1 + 1 + int rand 20;      # change: 20
   
10.         print "range$RANGE:$r1-$r2\n";
    
11.         $BEGIN = $r2;
    
12.     }
    
13. }
    
14. 
    
15. __DATA__
    
16. 
    
17. for SPEED TEST.
    
18. perl gensource.pl > data1.txt
    
19. perl gensource.pl > data2.txt
    

复制代码

回复 21# yestreenstars


   

newfinder

回复 21# yestreenstars
大侠，初始文本和目标文本就如13楼提出的那样……


   

newfinder

回复 22# pitonas
这两个文本各自也就5000到6000行左右

   

pitonas

小伙伴们 ~ {:2_168:}
若在代码试用过程中有任何不适, 请即时停用..

回复 25# newfinder

1. #!/usr/bin/perl
   
2. 
   
3. # input files, and output files
   
4. my @input  = qw[data1.txt data2.txt];
   
5. my @output = qw[diff1.txt diff2.txt comm.txt];
   
6. my @files  = map { open my $f, '>', $_; $f } @output;
   
7. my %data;
   
8. 
   
9. for my $i ( 0 .. 1 ) {
   
10.     @ARGV = shift @input;
    
11.     while (<>) {
    
12.         chomp;
    
13.         my ( $r, $R ) = split /:/;
    
14.         push @{ $data{$r}[$i] }, $R;
    
15.     }
    
16. }
    
17. 
    
18. my @range = map { $_->[1] } sort { $a->[0] <=> $b->[0] }
    
19.   map { [ /(\d+)/, $_ ] } keys %data;
    
20. 
    
21. for my $r (@range) {
    
22.     my ( $begin, $B, %com ) = ( 0, $data{$r}[1] );
    
23.     my @B = map [ split /-/ ], @$B;
    
24. 
    
25.     for my $A ( @{ $data{$r}[0] } ) {
    
26.         my @A = split /-/, $A;
    
27.         
    
28.         for my $i ( $begin .. $#B ) {
    
29.             $B[$i][1] <= $A[0] and next;
    
30.             $B[$i][0] >= $A[1] and do { $begin = $i; last };
    
31.             $B[$i][1] >= $A[1]
    
32.               ? $B[$i][0] <= $A[0] || $A[1] - $B[$i][0] > 2
    
33.               : $B[$i][0] >= $A[0] || $B[$i][1] - $A[0] > 2
    
34.               and print { $files[2] } "$r:$A $B->[$i]$/"
    
35.               and ( $com{0}{$A}, $com{1}{ $B->[$i] } ) = (undef) x 2;
    
36. 
    
37.             $B[$i][1] >= $A[1] and do { $begin = $i; last }
    
38.         }
    
39.     }
    
40. 
    
41.     for my $n ( 0 .. 1 ) {
    
42.         for ( @{ $data{$r}[$n] } ) {
    
43.             exists $com{$n}{$_} or print { $files[$n] } "$r:$_$/";
    
44.         }
    
45.     }
    
46. }
    

复制代码

newfinder

回复 26# pitonas
不知大侠指的不适是什么呢？

   

pitonas

例如: 因错误的答案, 导致胸闷丶心悸丶呼吸不过来丶头晕 ...

回复 27# newfinder


   

newfinder

回复 28# pitonas
呃……
大侠调皮了……

   

yestreenstars

回复 29# newfinder

25楼能否解决你的问题？

我改一下我的脚本看能不能满足~