arrays - 如何避免将重复值推入 Perl 数组

Question

我需要从包含多个重复值的输入的数组中添加唯一元素。

如何避免将重复值推入 Perl 数组？

Answer 1

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

这会在推送之前检查该值是否存在于数组中。如果该值不存在，它将被推送。

如果该值不是数字，则应使用eq而不是==.

Answer 2

您只需要像这样使用哈希：

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 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";
}