写一个小程序时候,需要去除一个数组中的重复元素,搜索了一下,找到的代码主要是两种,一种是使用grep函数,一种是转换为hash表,代码分别如下: 使用grep函数代码片段:代码: my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );my %count;my @uniq_times = grep { ++$count{ $_ } < 2; } @array; 使用转换hash代码片段:代码: my @array = ( 'a', 'b',…