Question

perl 两个数组去重复。

@a =（1,2,3,4,5,6，7）；
@b =（1,3,5）；

用perl 求 @a 去掉@b中元素中的数组。

Answer 1

两种方法，
1：要是ab按照顺序排的话
my ($i, $j) = (0, 0);
AA: while ($i <= $#a)
{
while ($b[$j] < $a[$i])
{
$j++;
last AA if ($j > $#b);
}
if ($b[$j] == $a[$i]){
print "delete $a[$i]\n";
splice(@a, $i, 1);
}
else
{
$i++;
}
}
print "@a";
2：要是不按照顺序可以用hash
for (@b){$b{$_} = 1;}
$i = 0;
while ($i <= $#a)
{
if ($b{$a[$i]}){
print "delete $a[$i]\n";
splice(@a, $i, 1);
}
else
{
$i++;
}
}
print "@a";

Answer 2

use strict;
my %hash; 
my @a =(1,2,3,4,5,6,7); 
my @b =(1,3,5);
foreach my $ip  (@b) 
{
 $hash{$ip} = 1
}
for(my $i = 0; $i < @a; $i++) 
{
 delete $a[$i] if($hash{$a[$i]} == 1) ;
}
print "@a\n";