可以把你数组的东西赋给一个hash 此hash的key 和value 均为你的数组元素的值。当有重复的元素赋给hash的时候，perl会容忍你的错误，把之前的元素覆盖
当你遍历数组赋值后，得到的hash就是无冗余的。然后你从此hash再把key或者value遍历出来即可。
用grep,
例如
#!/usr/bin/perl
@array = ("str1" , "str2" ) ;
$item = "str3" ;
if ( grep { $_ eq $item } @array) {
print "Have \n" ;
} else {
push @array , $item ;
print "Not have \n" ;
}
print "@array"."\n" ;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024