如何避免将重复值推送到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) ...