Question

perl如何判断一个变量已经包含在一个数组中

Answer 1

可以试一下这几种方式，每种方式各有优劣：

#!/bin/perl -w
use strict;
my @arr = ( "aaa","bbb","ccc","ddd","eee","fff"); # 这个是数组
my $vv = "ddd"; # 这个是要查找的变量

# 方法1,：使用类似c语言的风格，遍历这个数组，查找变量是否匹配。
foreach ( @arr)
{
if( $vv eq $_ )
{
print "$vv\n"
}
}

#方法2：使用map，查找数组中是否含有该变量
map { if($vv eq $_) { print "$vv\n"} } @arr;

#方法3：使用grep，查找数组中是否含有该变量
print( grep /^$vv$/, @arr );

以上3中方式的编码均已经测试过了，能够得到正确答案。如果LZ初学，可以使用方法1中的类似C语言的循环风格 ……

Answer 2

最常用的是使用grep

grep {$_ == $x} @arr;

~~