• 热门专题

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

作者:  发布日期:2014-10-14 20:13:38
Tag标签:字符串  数组  
  • 前言

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

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

    看一段简单的代码:

     

    my @arr2 = qw(str1 str2 str3 str4);
    foreach(@arr2)
    {
    	if($_ eq "str2")
        {
        	print "str2 exist in Array!
    ";
        	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 
    ";            # 返回个数
    print "grep result2=@result2 
    ";       # 返回元素

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

     

    (提示 在正则表达是中:^-- 表示开头 , $ 表示结尾 )

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

     

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

     

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

About IT165 - 广告服务 - 隐私声明 - 版权申明 - 免责条款 - 网站地图 - 网友投稿 - 联系方式
本站内容来自于互联网,仅供用于网络技术学习,学习中请遵循相关法律法规