perl 去除数组重复的元素

在 Perl 中，可以通过使用 `keys` 函数和哈希表来去除数组中的重复元素。具体的做法是将数组的元素作为哈希表的键，这样相同的元素只会出现一次，然后再将哈希表的键转换为数组即可。下面是示例代码：

my @array = (1, 2, 3, 2, 4, 3, 5);
my %hash = map { $_ => 1 } @array;
my @unique = keys %hash;
print "Original array: @array\n";
print "Unique array: @unique\n";

输出结果为：

Original array: 1 2 3 2 4 3 5
Unique array: 1 2 3 4 5

需要注意的是，哈希表中的值并不重要，只需要使用键即可。在上面的示例中，我们将哈希表中的所有值都设为 1。