如何避免将重复值推入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"; 
}