在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名:电子顶级开发网)

手机号码,快捷登录

手机号码,快捷登录

找回密码

  登录   注册  

快捷导航
搜帖子
查看: 3710|回复: 4

[求助] 关于Perl中正则表达式匹配问题

[复制链接]
发表于 2011-12-16 15:32:09 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
下面是一段perl的程序, 蓝色和绿色两段的写法是完全一样的。只是变量的内容有区别。
一个里面包含[],一个不包含。带[]号的到内嵌的if匹配时,是无法匹配的。要如何修改红色部分,让其也匹配成功。
注: 我真正的程序里这两种情况是同时存在的。


#!/usr/bin/perl -w
$line0="PIN MMMM[0]" ;
$line1="END MMMM[0]" ;
if ($line0=~/\s*PIN\s+(.*)/) {
    $name=$1 ;
    print "line0 match success \n" ;
    if ($line1=~/\s*END\s+$name/) {
        print "line1 match success \n" ;
    }
}


$line2="PIN MMMM" ;
$line3="END MMMM" ;
if ($line2=~/\s*PIN\s+(.*)/) {
    $name=$1 ;
    print "line2 match success \n" ;
    if ($line3=~/\s*END\s+$name/) {
        print "line3 match success \n" ;
    }
}



结果:
line0 match success
line2 match success
line3 match success

发表于 2011-12-16 16:58:57 | 显示全部楼层
Hi.
     你可以试试\Q\E来对特殊的字符进行转义:


     if ($line1=~/\s*END\s+\Q$name\E/) {
        print "line1 match success \n" ;
    }


    Good luck!
发表于 2011-12-16 18:08:00 | 显示全部楼层
END MMMM[0] or END MMMM[0]
\s*END\s+MMMM(\[\d+\])*
[0] zero or n
发表于 2011-12-17 23:12:29 | 显示全部楼层
回复 2# zhoufly1234


    没错,用 quotemeta :    \Q  ,  \E
 楼主| 发表于 2011-12-19 11:01:34 | 显示全部楼层
回复 2# zhoufly1234


    非常感谢,问题解决了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐 上一条 /1 下一条

×

小黑屋| 手机版| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-11-8 10:56 , Processed in 0.021174 second(s), 8 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表