Question

求perl代码。。。比较两个数组

@a = /1 2 3 4/;
@b = /2 3/;
去掉相同的元素
得出@c = /1 4/;

Answer 1

最起码有N种方法，我四年不看perl了，忘了很多，以前水平一个语句就能解决问题。现在只能用最笨的方法两层循环，效率较差。
my $k,$i,$j;
open (OUTFILE, ">>输出.fasta");
for($i=0;$i<=3;$i++){
$x=$a[$i];for($j=0;$j<=3;$j++){
$y=$b[$j];if($x != $y){$c[$k]=$x; $k++;}
}
}
print OUTFILE ("@c\n");
自己调调程序

Answer 2

#!/usr/bin/perl
my @a = qw/1 2 3 4/;
my @b = qw/2 3/;
my %h;
my @c = grep $h{$_} < 2, map { $h{$_}++; $_ } @a, @b;
print join ', ', @c;

Answer 3

不需要自己写，用 List::Compare这个module 即可

Answer 4

在cpan上找 Array::Diff

my @old=(1,2,3,4）;
my@new=(2,3);
my$diff= Array::Diff->diff(\@old,\@new);
$diff->deleted # [ 1,4];

Answer 5

@a = qw/1 2 3 4/; # <-- 是 qw// 或者 qq//, 不是 / / , 那是正则来的
@b = qw/2 3/;

my %h; $h{$_}++ foreach ( @a, @b ) ;
map { push @c, $_ if $h{$_} == 1 } sort {$a<=>$b} keys %h;
print "@c";