匹配固定个数的字符

午夜凋零

1. my $str = 'aaabbcdddeefff';

复制代码

想要得到只连续出现2次的字符。对应上面的$str，想要的结果是bb，ee。
要怎么写啊？想了半天，也没想出来，请高手帮忙，谢谢~~

dgtnk

先把连续三个及以上的都换成分割符 再匹配。。。

午夜凋零

dgtnk 发表于 2012-06-27 11:04
先把连续三个及以上的都换成分割符 再匹配。。。

谢谢解答~
这方法可以倒是可以，不过感觉怪怪的，不太理想。
我想要的是一步就得出结果的那种。。。

Y龙-鬼

先匹配任意次重复再选取长度为2的字符串

jason680

回复 1# 午夜凋零


which one do you like

$ echo "aaabbcdddeefff" | perl -lane '{length($1)==2 && print $1 while(m/((.)\2+)/g)}'
bb
ee

$ echo "aaabbcdddeefff" | perl -lane '{ print join "\n", grep{ /^..$/}  m/((.)\2+)/g}'
bb
ee
   

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $str = 'aaabbcdddeefff';
   
7. my @res = grep { /../ } $str =~ /(.)(((?!\1).)(?=\3).(?!\3))/g;
   
8. print "@res\n";

复制代码

午夜凋零

jason680 发表于 2012-06-27 12:18
回复 1# 午夜凋零

谢谢解答，这个思路是4楼说的那样吧。两种方法都可以达到目的，谢谢。
同时也谢谢4楼的解答。

有没有那种可能，就是以下面这种形式实现？
my @a = $str =~ /xxxx/g;
我想用断言的方法，可是后向断言不能指定regex，我就被卡住了。

yinyuemi

回复 7# 午夜凋零 ---

午夜凋零

cdtits 发表于 2012-06-27 12:34

感谢解答~
如果

1. $str = 'aabbcdddeefff';

复制代码

时，你的方法得不到aa的结果，你试试看。

yinyuemi

回复 9# 午夜凋零

1. perl -le 'my $str = "aabbcdddeef"; $str=~s/(.)\1{2,}(*SKIP)|((.)\3(?!\3))(*SKIP)|(.)(?!\4)/\2/g;print $str'
   
2. aabbee
   
3. 
   

复制代码