Question

perl 怎样合并两个数组，并除去相同的元素？

my @array1 = ('aa', 'bb');
my @array2 = ('cc', 'aa');

怎样得到 @array3 = ('aa', 'bb', 'cc') ???

Answer 1

my @array1 = ('aa', 'bb');
my @array2 = ('cc', 'aa');
@array3 = (@array1, @array2);
my %count;
my @array3_new = grep { ++$count{ $_ } < 2; } @array3;
print @array3_new;

或者
@array3 = (@array1, @array2);
foreach my $item ( @array3 ){
if ( ! grep( /$item/, @array3_new ) ){
push( @array3_new, $item );}}
print @array3_new;

Answer 2

my %h = ();
++$h{$_} foreach ( @array1, @array2 );
my @array3 = sort keys %h;

Answer 3

my %hash;
@hash{@array1,@array2}++;
my @array3 = sort keys %hash;