求2个数组的交集 $m{$_}++ && $n{$_}++;

静女，其姝

求2个数组之间的交集，方法采纳http://bbs.chinaunix.net/thread-1800151-1-1.html

发现结果不太对

程序如下：（这是我程序的缩略版本）
#!usr/bin/perl -w
use strict;

my (@a,@b,@c,$info,@out1,@out2,@set,@array);
open IN,"a.txt";
while (<IN>){
        chomp;
        @a=split;
        $info=join("\t",$a[0],$a[1],$a[2]);
        push (@set,$info);
}


foreach my $s(@set){
        chomp $s;
        @array=split /\t/,$s;

        open IN1,"b.txt";
        while (<IN1>){
                chomp;
                @b=split;
                if ($b[0] eq $array[0] && $b[1] < $array[2] && $b[2] > $array[1]){push (@out1,$s);}
        }

        open IN2,"c.txt";
        while (<IN2>){
                chomp;
                @c=split;
                if ($c[0] eq $array[0] && $c[1] < $array[2] && $c[2] > $array[1]){push (@out2,$s);}
        }

}

my %m;my %n;my @aa;
for(@out1,@out2){
$m{$_}++ && $n{$_}++;
}
@aa=keys %n;
foreach my $a(@aa)
{print "$a\n";}



输入文件
a.txt
a       501     800


cat b.txt
b       501     800


c.txt
a       401     700
a       701     900


输出：a       501     800

@out2为空
@out1的内容为重复的2行  a       501     800 ，为何按照这个方法取交集，会输出结果呢？劳烦各位大神们指点一二。

静女，其姝

不小心发到shell版块了

yinyuemi

回复 1# 静女，其姝

你想输出什么？

静女，其姝

yinyuemi 发表于 2016-09-07 08:08
回复 1# 静女，其姝

你想输出什么？

这是我程序的简化版本，在a.txt上，取b.txt和c.txt的交集。条件是，b.txt或c.txt的第一列得和a.txt的第一列相同，且第二三列得和a.txt的第二三列有重合的区间

sunzhiguolu

1. perl -e 'BEGIN{@a=(1..5);@b=qw/6 2 7 1 5 8 9/}{for(@a,@b){$C{$_}++?push(@I,$_):push(@U,$_)}}END{print "@I\n@U\n"}'

复制代码

静女，其姝

回复 5# sunzhiguolu
问题已解决，perl -e 'BEGIN{@a=(1..5);@b=qw/6 2 7 1 5 8 9 9/}{for(@a,@b){$C{$_}++?push(@I,$_):push(@U,$_)}}END{print "@I\n@U\n"}'
交集会出现9

sunzhiguolu

回复 6# 静女，其姝
那就费点事

1. perl -e 'BEGIN{@a=(1..5);@b=qw/6 2 7 1 5 8 9 9/}{@b=grep{!$U{$_}++}@b;for(@a,@b){$C{$_}++?push(@I,$_):push(@U,$_)}}END{print "@I\n@U\n"}'

复制代码

静女，其姝

回复 7# sunzhiguolu

多谢了，解决了我的问题