匹配固定个数的字符

午夜凋零

yinyuemi 发表于 2012-06-27 14:24
回复 9# 午夜凋零

谢谢解答~
前面的算是占座吗。。。
我在我这儿运行，会报出如下错误信息。是不是perl的版本不够？我的perl是v5.8.5
Quantifier follows nothing in regex; marked by <-- HERE in m/(.)\1{2,}(* <-- HERE SKIP)|((.)\3(?!\3))(*SKIP)|(.)(?!\4)/ at -e line 1.

还有，*SKIP是什么意思啊？

yinyuemi

回复 11# 午夜凋零


    http://perldoc.perl.org/perlre.h ... cking-Control-Verbs
我用的是5.10,有可能是版本问题

myeverything

修改下6楼的，

1. while ($str =~ /(?(?<=^)(?<a>(\w)(?=\2).(?!\2))|(?<=([a-z]))(?<a>(?!\3)(.)(?=\5).(?!\5)))/g) {
   
2.         print "$+{a}\n";
   
3. }

复制代码

不过，也得5.10～

午夜凋零

谢谢楼上2位。
我回去再试吧。公司的linux不让个人装东西，尴尬。

xiyoulaoyuanjia

1. echo aaabbcdddeefff | perl -ne 'while ($_ =~/((.)\2+)/g ) {print $1."\n" if length($1)==2}'

复制代码

Sianeal

十楼正解，不过我记得好像还能更简单点

3P主义

1. 
   
2. my $str = 'aaabbcdddeefff';
   
3. while ($str =~ /(?<=(.))(?!\1)((.)\3)(?!\3)/g) {
   
4.     print $2, "\n";
   
5. }
   

复制代码

完美实现

3P主义

3P主义 发表于 2012-06-28 18:41
完美实现

改正个 bug

1. 
   
2. my $str = 'xxaaabbcdddeefff';
   
3. while ($str =~ /(?|(^)((.)\3)|(?<=(.))(?!\1)((.)\3))(?!\3)/g) {
   
4.     print $2, "\n";
   
5. }
   

复制代码

午夜凋零

3P主义 发表于 2012-06-28 20:59
改正个 bug

不行的。我这儿运行会报
Sequence (?|...) not recognized in regex; marked by <-- HERE in m/(?| <-- HERE (^)((.)\3)|(?<=(.))(?!\1)((.)\3))(?!\3)/ at ./0619 line 79.

我在你的思路上修改了下，还是达不到结果，要么只报开头的xx，要么就只报后面的bb, ee

3P主义

午夜凋零 发表于 2012-06-29 11:08
不行的。我这儿运行会报
Sequence (?|...) not recognized in regex; marked by

5.10 起有效