perl 如何使用uniq
时间: 2023-07-20 10:38:58
浏览: 432
linux下perl,sed,shell批量替换文件内容.docx
在 Perl 中,可以使用 `uniq` 函数来去除数组中的重复元素。`uniq` 函数需要传入一个数组作为参数,并返回一个新的数组,其中只包含原数组中的不重复元素。
下面是使用 `uniq` 函数去除数组中重复元素的示例代码:
```perl
my @[array](https://wenku.csdn.net/doc/6412b6ddbe7fbd1778d4842f?spm=1055.2569.3001.10083) = (1, 2, 3, 2, 4, 3, 5);
my @[unique](https://wenku.csdn.net/doc/645323d1fcc5391368040b2c?spm=1055.2569.3001.10083) = uniq(@array);
[print](https://wenku.csdn.net/doc/6401acb5cce7214c316ecd5e?spm=1055.2569.3001.10083) "[origin](https://wenku.csdn.net/doc/6401ad1dcce7214c316ee565?spm=1055.2569.3001.10083)al array: @array\n";
print "Unique array: @unique\n";
输出结果为:
Original array: 1 2 3 2 4 3 5
Unique array: 1 2 3 4 5
需要注意的是,`uniq` 函数需要使用 `List::More[utils](https://wenku.csdn.net/doc/6401ac19cce7214c316ea9f5?spm=1055.2569.3001.10083)` 模块,因此在使用前需要先导入该模块。可以使用 `use List::MoreUtils qw(uniq);` 来导入该模块和 `uniq` 函数。
阅读全文