[码海拾贝 之Perl]在字符串数组中查找特定的字符串是否存在

前言

检索一个字符串是否存在于一个数组中， 最基本的想法应该就是对数组进行循环， 逐个判断数组的每个元素值和给定的值是否相等。

(在Java语言还可以把数组转成 List , 在 list 中直接有 contains 方法可以使用)

看一段简单的代码：

my @arr2 = qw(str1 str2 str3 str4);
foreach(@arr2)
{
if($_ eq "str2")
{
print "str2 exist in Array!\n";
last;
}
}

这段代码看起来挺简洁，也不难理解。 但是在Perl 在还有另外一种方法，只需要一行代码就能达成这样的效果。 就是使用 grep 函数

grep 简介

grep 的全称是 Global Regular Expression Print， 翻译一下是全局正则表达式版本。

如果使用过Linux命令的话对这个词应该不陌生。

看一个常见的linux 命令

ps -ef | grep java

ps -ef 是查看所有的进程

加上 grep java 的意思是 搜索系统进程中包含 java 名字的进程。

也就是说在linux 中， grep 能使用正则表达式搜索文本， 并把匹配的行打印出来。

触类旁通， 在Perl 中 grep 函数的作用也类似

Perl grep 函数

在Perl 中 , grep 函数的调用方式有两种：

方式1. grep BLOCK LIST

方式2. grep EXPT, LIST

BLOCK: 表示一个Code 块， 通常用 {}表示；

EXPR 表示一个表达式， 通常是正则表达式

LIST: 要匹配的列表

grep函数对列表里的每个元素进行BLOCK或EXPR匹配，它遍历列表，并临时设置元素为$_。

在列表上下文里，grep返回匹配命中的所有元素，结果也是个列表。

在标量上下文里，grep返回匹配命中的元素个数。

比较一下下面的代码：

my @arr3 = qw(str1 str2 str3 str4 str11);
my $str = "str1";
my $result =grep /^$str/, @arr3;
my @result2 =grep /^$str/, @arr3;
print "grep result=$result \n";            # 返回个数
print "grep result2=@result2 \n";       # 返回元素

这里在数组中匹配以str1 开头的字符串元素

（提示 在正则表达是中：^-- 表示开头 ， $ 表示结尾 ）

所以要精确匹配到某个字符串， 使用如下方式：

my $result =grep /^$str$/, @arr3;

到此 ， 标题所给出的议题也就达成了。