如何避免將重複值推入Perl數組

Question

我需要從包含多個重複值的輸入中添加數組中的唯一元素。

如何避免將重複值推入Perl數組？

Answer 1

你只需要使用哈希像這樣：

my %hash; 
$hash{$key} = $value; # you can use 1 as $value 
... 

這會自動覆蓋重複鍵。

當您需要打印，只需使用：

foreach my $key (keys %hash) { 
    # do something with $key 
} 

如果需要，如果值出現前陣中鍵此檢查排序，使用

foreach my $key (sort keys %hash) ... 

Answer 2

push(@yourarray, $yourvalue) unless grep{$_ == $yourvalue} @yourarray; 

推動。如果該值不存在，它將被推送。

如果該值不是數字，則應使用eq而不是==。

Answer 3

使用~~我們可以最小的perl版本是5.10.1

use v5.10.1; 
use strict; 
use warnings; 

my @ARRAY1 = qw/This is array of backup /; 
my @ARRAY2; 


my $value = "version.xml" ; 


sub CheckPush($$) 
{ 

my $val = shift (@_); 
my $array_ref= shift (@_); 

    unless ($val ~~ @$array_ref) 
    { 
     print "$val is going to push to array \n"; 
     push(@$array_ref,$val); 
    } 
return (@$array_ref); 
} 

@ARRAY1 = CheckPush($value,\@ARRAY1); 
print "out \n"; 
foreach $_ (@ARRAY1) { 
print "$_ \n"; 
} 

@ARRAY2 = CheckPush ($value,\@ARRAY2); 
print "out2 \n"; 
foreach $_ (@ARRAY2) { 
print "$_ \n"; 
}