perl中一个正则表达式的疑问

xuyong_32

UID: 1611
帖子: 3
积分: 6
在线时间: 10 分钟

11^# xuyong_32 发表于 2008-12-15 17:41

en ,谢谢

marshal

UID: 11956
帖子: 191
积分: 439
在线时间: 2 天 1 小时

12^# marshal 发表于 2008-12-29 12:31

[quote]回复给胖瓜瓜 : i.

回复给胖瓜瓜 : if(/(\w*(a\b))(.{5})/){<....

可以这样，用/g全局搜索

while ((\w*(a\b))(.{5})/) {
print "$3\n";
}