在Perl中,可以使用uniq
函数来去除数组中的重复元素。
下面是一个简单的示例:
use List::MoreUtils qw(uniq);
my @array = (1, 2, 3, 2, 1, 4, 5, 4);
my @unique_array = uniq(@array);
foreach my $element (@unique_array) {
print "$element ";
}
输出结果为:1 2 3 4 5
在上面的示例中,uniq
函数从数组@array
中移除重复的元素,并将结果存储在@unique_array
数组中。然后,使用循环遍历@unique_array
数组并打印每个元素。