查找唯一值在兩個數組 - Perl的

Question

我有兩個數組@Results和@結果2它們之間有一個數字的羣衆。 e.g（12345678 182937439 18329741等）

在兩個數組，如果我將它們結合在一起，我能得到重複，我不想。我想比較兩個數組，保留唯一值並逐一打印。

任何幫助，請將不勝感激......

Answer 1

因此重複數據刪除陣列。此代碼從List::MoreUtilsuniq功能借來的：

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