作者CindyLinz (Cindy Wang)
看板RegExp
标题Re: [问题]请问正规表示式如何抓取这样的字串
时间Thu Nov 20 21:09:14 2014
※ 引述《CindyLinz (Cindy Wang)》之铭言：
: --
:
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.121.80.249
: ※ 文章网址: http://webptt.com/cn.aspx?n=bbs/RegExp/M.1415297116.A.8B5.html
: → CindyLinz: 细节说明可以看 http://perldoc.perl.org/perlre.html 11/07 02:06
: ※ 编辑: CindyLinz (112.121.80.249), 11/07/2014 02:18:42
: 推 lin1987www: 大大超强的!我本来尝试?>去做不行...最後看懂大大答案 11/12 19:43
: → lin1987www: 可否请大大印出Debug的程序，我脑袋跑步出来结果 xd 11/12 20:14
: → CindyLinz: Debug 的程序是指...?? 11/12 23:15
: → lin1987www: 参考 http://stackoverflow.com/a/2348725/1584100 11/20 11:05
哈哈 新学到一招 use re 'debug'; ^^
可是印出来好长..
我把测试程式码贴给你你自己印好了.. ^^|
use re 'debug';
sub f {
if( $_[0] =~ /(?<!A)A([^AB]*|A(?-1)B)B(?!B)/ ) {
print "Y\n";
} else {
print "N\n";
}
}
f('AAABBB');
f('AAABBBB');
f('AAACBBBB');
f('AAAACBBBB');
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.121.80.249
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/RegExp/M.1416488956.A.60D.html
1F：→ lin1987www: 感谢大大...但是我没有可以Run Perl的环境 Q"Q 11/24 20:14
2F：→ lin1987www: 使用猫头鹰RegexBuddy也跑不出来Perl我不会用... 11/24 20:15
3F：→ lin1987www: 我在Window底下 xd 11/24 20:16
5F：推 lin1987www: 感谢 美女大大 Q"Q 11/25 04:39