用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" ;
用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" ;