Perl的發現，在一個數組

Question

鑑於元件的陣列中只出現一次的元素，如何發現只有在該陣列發生一次的元件：

my @array = qw(18 1 18 3 18 1 1 2 3 3); 

結果應該是：2

Answer 1

這是perlfaq5 - How can I remove duplicate elements from a list or array?

只需使用散列來計算元素，然後打印只顯示一次的元素。

use strict; 
use warnings; 

my @array = qw(18 1 18 3 18 1 1 2 3 3); 

my @nondup = do { 
    my %count; 
    $count{$_}++ for @array; 
    grep {$count{$_} == 1} keys %count; 
}; 

print "@nondup\n"; 

輸出：

2 

Answer 2

您還可以在簡單的方式嘗試。

use strict; 
use warnings; 
my @array = qw(7 8 7 5 18 1 18 3 18 1 1 2 3 3 4 5 6 7); 
my $tm = ""; 
my %hash=(); 
foreach $tm(@array){  
    if(exists $hash{$tm}){ 
     $hash{$tm} = ""; 
    } 
    else{ 
     $hash{$tm} = "$tm";  
    } 
} 
print join ("\n", values %hash);exit;