如何比較2重疊的範圍沒有任何重複

Question

我想比較@ arr3範圍的值與@ arr4範圍的值，但我沒有得到所需的輸出。請在下面的代碼中建議我修改以獲得輸出爲3,4,5,6,7,9,10,11,12,14,15（不重複示例5和10的值）並且總匹配= 11。

文件1：結果

3..7 
9..12 
14..17 

文件2：註釋

1..5 
5..10 
10..15 

代碼：

#!/usr/bin/perl 
open ($inp1,"<result") or die "not found"; 
open ($inp2,"<annotation") or die "not found"; 
my @arr3=<$inp1>; 
my @arr4=<$inp2>; 
foreach my $line1 (@arr4) { 
    foreach my $line2 (@arr3) { 
     my ($from1,$to1)=split(/\.\./,$line1); 
      my ($from2,$to2)=split(/\.\./,$line2); 
    #print $from1;print "\n"; 

    for (my $i=$from1;$i<=$to1 ;$i++) { 
     for (my $j=$from2;$j<=$to2 ;$j++) { 
      if ($i==$j) { 
       print "$i";`enter code here`print "\n"; 
      } 
     } 
    } 
} 

Answer 1

如果你的列表不是太大，你可以使用哈希，這是如何在Perl中實現「不重複」的最佳方式：

#!/usr/bin/perl 
use warnings; 
use strict; 

my @result = ('3..4', '9..12', '14..17'); 
my @annotation = ('1..5', '5..10', '10..15'); 

my %cmp; 
my $pass = 1; 
for my $range (@result, undef, @annotation) { 

    $pass = 2, next unless $range; 

    my ($from, $to) = split /\Q../, $range; 
    for my $num ($from .. $to) { 
     $cmp{$num} = $pass if 1 == $pass or $cmp{$num}; 
    } 
} 

my @output = sort { $a <=> $b } grep 2 == $cmp{$_}, keys %cmp; 
print join(',', @output), "\nTotal matched: ", scalar @output, "\n"; 

Answer 2

Works爲我

#!/usr/bin/perl 
    open ($inp1,"<result") or die "not found"; 
    open ($inp2,"<annotation") or die "not found"; 
    my @arr3=<$inp1>; 
    my @arr4=<$inp2>; 
    foreach my $line1 (@arr4) { 
      foreach my $line2 (@arr3) { 
        my ($from1,$to1)=split(/\.\./,$line1); 
        my ($from2,$to2)=split(/\.\./,$line2); 
        for (my $i=$from1;$i<=$to1 ;$i++) { 
          for (my $j=$from2;$j<=$to2 ;$j++) { 
            $res = grep(/$i/, @result); 
            if ($i==$j && $res == 0) { 
              print "$i enter code here\n"; 
              push(@result, $i); 
            } 
          } 
        } 
      } 
    }