2024年4月19日发(作者：)

perl数组去重复的方法

在Perl中，你可以使用`uniq`函数或者`sort`和`uniq`的组合来去除数组中的

重复元素。下面是这两种方法的例子：

1. 使用`uniq`函数：

```perl

!/usr/bin/perl

use strict;

use warnings;

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

my unique_array = uniq(array);

print join(", ", unique_array), "n";

```

2. 使用`sort`和`uniq`的组合：

```perl

!/usr/bin/perl

use strict;

use warnings;

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

my sorted_array = sort(array);

my unique_array = ();

foreach my $element (sorted_array) {

push(unique_array, $element) unless $element eq $sorted_array[0];

}

print join(", ", unique_array), "n";

```

这两种方法都可以去除数组中的重复元素，但是第一种方法更快一些，因为

它直接使用了内置的`uniq`函数。第二种方法虽然也能达到目的，但是它首

先对数组进行排序，然后再去重，所以性能可能稍微差一些。