一行程序正则匹配问题

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

11^# __lxmxn__ 发表于 2008-08-21 20:18

QUOTE:

原帖由 churchmice 于 2008-8-21 18:20 发表
方法也是有的

perl -ne 'print $2 ."\n" if m#domain(?:-bak)?/(db\.)?(.+)(?(1)|(?=(\.db(?=\.bak)?)))#' 1.txt

churchmice 的正则真是炉火纯青啊，可否解释解释后面一段？

redicaps

UID: 37436
帖子: 187
积分: 430
在线时间: 1 天 23 小时

12^# redicaps 发表于 2008-08-21 20:53

好牛

perldoc perlre
extended patterns

chenzq1604

UID: 44262
帖子: 157
积分: 361
在线时间: 1 天 9 小时

13^# chenzq1604 发表于 2008-08-22 17:28

QUOTE:

原帖由 __lxmxn__ 于 2008-8-21 20:18 发表

churchmice 的正则真是炉火纯青啊，可否解释解释后面一段？

(?(1)|(?=(\.db(?=\.bak)?)))#' 1.txt

?(1) if 前面成功匹配了 db.的，就不再继续匹配，

| else

(?=(\.db 匹配 .db

(?=\.bak)? 匹配可能出现的 .bak

清楚了吧

谢谢楼上的几位高人，我得回家再通读《精通正则表达式》了！

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

14^# forlorngenius 发表于 2008-08-22 17:34

那就不写$

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

15^# forlorngenius 发表于 2008-08-22 17:35

直接看大骆驼的正则，那效果更明显

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

16^# cobrawgl 发表于 2008-08-23 10:06

其实没必要用这么复杂的 re，你先匹配再替换不成么？

$_ = $1 if m{/(.*)};
s/\.bak$//;
s/\.db$//;