perl 中有没有判断数组里面有没有某个元素的函数？

可以把你数组的东西赋给一个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" ;