快速获取两组数据的交集，并集，补集

笔者常用这个脚本快速查看两组数据的交并补集。（注意：请保持每组数据是非冗余的）。

#!/usr/bin/perl -wuse strict;use File::Basename;die "#usage:perl $0 <a.txt><b.txt>\n" if @ARGV!=2;my ($p,$q)=@ARGV;open IN1,$p||die;open IN2,$q||die;chomp(my @p=<IN1>);chomp(my @q=<IN2>);close IN1;close IN2;my %p = map{$_,1} @p;my %q = map{$_,1} @q;my @inter = grep{$p{$_}} @q;my %merge = map {$_,1} @p,@q;my @merge = keys %merge;my @q_u = grep {!$p{$_}} @merge;my @p_u = grep {!$q{$_}} @merge;my $p_name=basename$p;my $q_name=basename$q;open OUT1,">",$p_name.".uniq.txt";print OUT1 "$_\n" foreach sort{$a cmp $b}@p_u;close OUT1;open OUT2,">",$q_name.".uniq.txt";print OUT2 "$_\n" foreach sort{$a cmp $b}@q_u;close OUT2;open OUT3,">","${p_name}_$q_name.inter.txt";print OUT3 "$_\n" foreach sort{$a cmp $b}@inter;close OUT3;open OUT4,">","${p_name}_$q_name.merge.txt";print OUT4 "$_\n" foreach sort{$a cmp $b}@merge;close OUT4;