前言
检索一个字符串是否存在于一个数组中, 最基本的想法应该就是对数组进行循环, 逐个判断数组的每个元素值和给定的值是否相等。
(在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 [email protected] \n"; # 返回元素
这里在数组中匹配以str1 开头的字符串元素
(提示 在正则表达是中:^-- 表示开头 , $ 表示结尾 )
所以要精确匹配到某个字符串, 使用如下方式:
my $result =grep /^$str$/, @arr3;
到此 , 标题所给出的议题也就达成了。
时间: 2024-10-13 16:09:49