arrays - 2 つの配列で一意の値を見つける - Perl

Question

@results と @results2 の 2 つの配列があり、それらの間に大量の数値があります。例: (12345678 182937439 18329741 など)

両方のアレイでそれらを組み合わせると、望ましくない重複が発生する可能性があります。2 つの配列を比較し、一意の値を保持して、次々に出力したいと思います。

Answer 1

したがって、アレイを重複排除します。関数から借用したこのコード:List::MoreUtils uniq

sub uniq {
    my %seen;
    grep { !$seen{$_}++ } @_;
}

my @unique = uniq(@results, @results2);

Answer 2

「ユニーク」と思うときはいつでも「ハッシュ」と考える

#!/usr/bin/perl

use strict;
use warnings;

my @a = qw(1 2 3);
my @b = qw(3 4 5);

my %x = map { $_ => 1 } @a, @b;

print join ", ", keys %x; # 4, 1, 3, 2, 5