免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
楼主: deathcult

Perl 中的正则表达式 [复制链接]

论坛徽章:
0
发表于 2003-12-02 09:48 |显示全部楼层

Perl 中的正则表达式

我先是用(/(.*)^D/)  相应的test也以^D结尾 ; 后来(/(.*)D(.*)/)  test对应的加了aaaaaaaaaaaa和bbbbbbbbbbbb,都行的  :(
你把正则表达式和通配符搞混了

论坛徽章:
0
发表于 2006-12-07 13:35 |显示全部楼层
精彩,正在学习perl

论坛徽章:
0
发表于 2007-06-14 10:15 |显示全部楼层

回复 9楼 release 的帖子

还有不懂的,
.*  匹配0或多次任何字符。

一个*就行了,干嘛还要加个.



“*"是个“量化”标示。就好比数学上
                             “2”个“1”=1X2
                                           “3”个“4”=4X3
光有* 不能表达出0个或多个 “什么东东”。同样 ? + 也是这个道理。

[ 本帖最后由 weismart 于 2007-6-14 10:42 编辑 ]

论坛徽章:
0
发表于 2007-06-14 11:22 |显示全部楼层
呵呵,楼主总结的真好

论坛徽章:
0
发表于 2007-09-21 18:55 |显示全部楼层
原帖由 gunguymadman007 于 2003-12-1 21:28 发表
look
偶以前也是经常用/(.*)^D$/来匹配任何以^D结尾的东东啊



^不转???

D结尾的用/D$/即可




另外, Perl正则默认是贪婪匹配
.*?表示非贪婪匹配

for example:
$str = 'ChinaUnix';
$str = /(a.*)/;    ### $1 = 'aUnix'
$str = /(a.*?)/;  ### $1 = 'a'

对于.+?也如此
$str = 'ChinaUnix';
$str = /(a.+)/;    ### $1 = 'aUnix'
$str = /(a.+?)/;  ### $1 = 'aU'

论坛徽章:
0
发表于 2007-10-23 10:05 |显示全部楼层
我测试了以下代码:
#!/usr/bin/perl
$year="x\x4\sf\a\f\baf\fax";
$year=~s/\\x/\%/g;
print $year."\n";


结果为:
xsf
  af
    ax

很难理解呀,以上替换不是将串中的“\x”替换为"%"么,结果跟想像的差别很大以,哪位大虾给解释一下。

论坛徽章:
0
发表于 2007-11-05 22:02 |显示全部楼层
原帖由 qtsh 于 2007-10-23 10:05 发表
我测试了以下代码:
#!/usr/bin/perl
$year="x\x4\sf\a\f\baf\fax";
$year=~s/\\x/\%/g;
print $year."\n";


结果为:
xsf
  af
    ax

很难理解呀,以上替换不是将串中的“\x”替换为"%"么,结果 ...



在字符串中\必须以\\的方式才会有效,否则被视为字符转义符,
因此  $year="x\x4\sf\a\f\baf\fax"; 这一句应该不要你想像的结果,

你的意思应该是
$year="x\\x4\\sf\\a\\f\\baf\\fax";

论坛徽章:
0
发表于 2008-07-07 14:42 |显示全部楼层

回复 #1 deathcult 的帖子

LZ不错
这个风页我收藏了
别拦我啊!

论坛徽章:
27
CU大牛徽章
日期:2013-03-13 15:15:08CU大牛徽章
日期:2013-05-20 10:46:38CU大牛徽章
日期:2013-05-20 10:46:44CU大牛徽章
日期:2013-09-18 15:24:09CU大牛徽章
日期:2013-09-18 15:24:20CU大牛徽章
日期:2013-09-18 15:24:25CU大牛徽章
日期:2013-09-18 15:24:31CU大牛徽章
日期:2013-09-18 15:24:36CU大牛徽章
日期:2013-09-18 15:24:41CU大牛徽章
日期:2013-09-18 15:24:48CU大牛徽章
日期:2013-09-18 15:24:52处女座
日期:2013-09-27 17:45:43
发表于 2008-07-21 16:48 |显示全部楼层
谢谢楼主介绍,我在linux下最喜欢用grep

论坛徽章:
0
发表于 2008-07-21 20:38 |显示全部楼层
$string = "www22cgi44";
$string =~ s/(\d+)/$1*2/e; # (/d+)代表 $string 中的一个或多个数字字符,将这些数字字符执行 *2 的操作,因此最后 $string 变成了 "www44cgi88"。


#!/usr/bin/perl
$string = "www22cgi44";
$string =~ s/(\d+)/$1*2/e;
print $string."\n";

结果是:www44cgi44

[ 本帖最后由 小渔村 于 2008-7-21 20:39 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP