Question

perl的菜鸟问题：如何去掉数组里的重复元素

Answer 1

@m = (1,1,2,2,3,4,4);
rm_same(\@m);
print "@m";

sub rm_same {
	my $arr = shift;
	my $i = 0;
	my %k;
	while ($i <= $#{$arr}) {
		if (exists $k{$arr->[$i]}) {
			splice @$arr, $i, 1;
		}
		else {
			$k{$arr->[$i]} = 1;
			$i++;
		}
	}
}