如何匹配多个连续的字符串

ghostvic

字符串为：0abbcccdef111
如何匹配 bb ,ccc, 111？

我写的:
my @arr= $_ =~ /(\w)\1{1,}/g;

@arr的结果是：b c 1
怎样才能得到：bb ccc 111呢，谢谢：）

cdtits

1. my @r;
   
2. my $t = '0abbcccdef111';
   
3. while ($t =~ /((\w)\2+)/g) {
   
4.     push @r, $1;
   
5. }
   
6. print join(' | ', @r), "\n";

复制代码

yinyuemi

1. perl -MData::Dumper -le '$str="0abbcccdef111"; $str=~/(.)\1+(*SKIP)(?{push @arr,$&})(*FAIL)/g;print Dumper \@arr'
   
2. $VAR1 = [
   
3.           'bb',
   
4.           'ccc',
   
5.           '111'
   
6.         ];

复制代码

ghostvic

回复 2# cdtits

/((\w)\2+)/g  啥意思？ 这里面有\2么？ 谢谢


   

午夜凋零

ghostvic 发表于 2012-06-21 08:42
回复 2# cdtits

/((\w)\2+)/g  啥意思？ 这里面有\2么？ 谢谢

/((\w)\2+)/g

第1个括号，也就是红色的括号，是\1。
第2个，也就是里面的，是\2

kk861123

yinyuemi 发表于 2012-06-20 23:53

这位大师的意思是这样的

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my @arr;
   
7. $_ = "0abbcccdef111";
   
8. while (m/(\w)\1+/g) {
   
9.     push @arr,$&;
   
10. }
    
11. print Dumper \@arr;

复制代码

ghostvic

回复 5# 午夜凋零


知道了，谢谢啊

yizhengming

my @arr;
while ($line =~ /(.)\1+(?{push @arr, $&})/g) {};