本文介绍使用Perl语言通过两种不同方法去除数组中的重复元素。第一种方法不考虑原始顺序，利用哈希特性快速实现；第二种方法保留了原始数组顺序，采用grep与哈希结合的方式。这两种方法适用于不同场景的需求。
转自 perlfaq
#!/usr/bin/perl -w
# cnhackTNT { a t } perlchina.org
# Exacting Unique Elements from a
Array
# Just few tricks with perl's hash
&& grep
use strict;
my @array = ( 'This', 'is', 'a', 'array', 'with', 'a',
'duplicate','element' );
my $return1 = Unique_elem1(\@array);
my $return2 = Unique_elem2(\@array);
print join(',',@$return1),"\tby Unique_elem1\n";
print join(',',@$return2),"\tby Unique_elem2\n";
sub Unique_elem1(\@){
# eliminate duplicate values from a
array
# and don't care about the order of @array's
elements.
my $array=shift;
my %hash = ();
@hash{@array} = ();
$array=[keys %hash];
return $array;
}
sub Unique_elem2(\@){
# eliminate duplicate values from a
array
# and do care about the order of @array's
elements.
my $array=shift;
my %hash = ();
$array = [grep{!$hash{$_}++}@$array];
return $array;
}
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
