如何在Perl数组中打印唯一元素？

在Perl中，要打印数组中的唯一元素，可以使用keys函数和%seen哈希表。以下是一个示例代码：

#!/usr/bin/perl

use strict;
use warnings;

my @array = (1, 2, 2, 3, 4, 4, 5);
my %seen;

foreach my $element (@array) {
    if (!$seen{$element}++) {
        print "$element\n";
    }
}

在这个示例中，我们创建了一个名为@array的数组，其中包含一些重复的元素。我们还创建了一个名为%seen的哈希表，用于存储已经遇到的元素。

接下来，我们使用foreach循环遍历数组中的每个元素。对于每个元素，我们检查%seen哈希表中是否已经存在该元素。如果不存在，我们将其添加到哈希表中，并打印该元素。

这种方法可以确保我们只打印数组中的唯一元素。在这个例子中，输出将是：

1
2
3
4
5

这个方法可以很好地处理大量的数据，并且速度非常快。