匹配固定个数的字符

午夜凋零

3P主义 发表于 2012-06-29 11:12
5.10 起有效

这。。。好吧。
谢谢解答哈~~

jason680

回复 21# 午夜凋零

did you like it that can work on perl v5.8.4

$  echo aaabbcdddeefff | perl -lape '{s/\G((.)\2\2+|(.)(?!\3))*(?:((.)\5(?!\5))|$)/$4/g}'
bbee


$ perl -v
This is perl, v5.8.4 built for i86pc-solaris-64int
...
   

午夜凋零

jason680 发表于 2012-06-29 13:36
回复 21# 午夜凋零

did you like it that can work on perl v5.8.4

谢谢解答~~
确实可以。最后那个|$怎么理解啊？我试了试，去掉就不行了。请解释一下吧。

jason680

回复 23# 午夜凋零

aaabbcdddeefff
the red and blue will be a pair, but last one didn't have blue(double word) and use $ for it

red part for 1, 3 or more many times on the same word
blue part for double word that you want to get it

ttcn_cu

还是新版本的正则分组好弄

1. use 5.010;
   
2. use strict;
   
3. use warnings;
   
4. my $str = 'xxaaabbcdddeefffzz';
   
5. while($str=~m{
   
6.     (?<=(?<pre>.))(?!\g{pre})(?<catch>(?<char>.)\g{char})(?!\g{char})
   
7.     |
   
8.     \A(?<catch>(?<char1>.)\g{char1}(?!\g{char1}))}gx
   
9.     ){
   
10.     say $+{catch};
    
11. }

复制代码

午夜凋零

jason680 发表于 2012-06-29 18:11
回复 23# 午夜凋零

aaabbcdddeefff

Got it, Thanks a lot.