免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2750 | 回复: 2

正则匹配 [复制链接]

论坛徽章:
0
发表于 2014-11-11 13:24 |显示全部楼层
while($lin=<$FH>){
         if( $lin=~m/(^|\W)${object_name}(\W|$)/i){
                print "-- [EBS-AP-AC120001] 2012\/11\/20 &szlig;╕&euml;i&Uuml;⌡ &Aring;C&Eacute;│èJ&Auml;n","\r\n"
;
                print "--",$lin;
                $new_lin=$lin;
                $new_lin=~s/(\w+\.)${object_name}(\W|$)/${new_object_name}$2/gi;

                $new_lin=~s/(^|\W)${object_name}(\W|$)/$1${new_object_name}$2/gi
;
                print $new_lin;
                print "-- [EBS-AP-AC120001] 2012\/11\/20 &szlig;╕&euml;i&Uuml;⌡ &Aring;C&Eacute;│&Aring;Iù╣","\r\n"
;

   



$1,$2是在前次匹配中的第一和第二个匹配值吗?

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2014-11-11 13:51 |显示全部楼层
本帖最后由 jason680 于 2014-11-11 13:54 编辑

回复 1# carl_chengzhong

  $new_lin=~s/(\w+\.)${object_name}(\W|$)/${new_object_name}$2/gi;

  $new_lin=~s/(^|\W)${object_name}(\W|$)/$1${new_object_name}$2/gi;


more detail by follow command
$ perldoc perlre
NAME
    perlre - Perl regular expressions
...

$ perldoc perlretut
NAME
    perlretut - Perl regular expressions tutorial

论坛徽章:
0
发表于 2014-11-11 14:19 |显示全部楼层
回复 2# jason680

I understand,
Thanks a lot.


   
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP