请教个关于捕获不定个分组的问题

zuibird

$BetString="111#2222#33333#444";


$BetRegexSingleLine="(\\d{3,5})";
$BetRegexCompleLine=qr!$BetRegexSingleLine(?:#$BetRegexSingleLine){0,5}!;


if(@myArray = $BetString =~ m{$BetRegexCompleLine})
{
    $matchCount = $#myArray+1;
    print "match! [$matchCount]\n";
    $i = 0;
    for($i = 0; $i < $matchCount; $i++)
    {
        print "[$i] = [$myArray[$i]] \n"
    }
}
else
{
    print "not match!";
}

################# 运行结果，只得到了头和尾的数字
match! [2]
[0] = [111]
[1] = [444]

################# 能捕获所有的数字么？ 各位高手指点

Perlvim

my @capture_digits = $string =~ /(\d+)/g;

mcshell

1. 1 while('111#2222#33333#444' =~ /(\d+)(?{print "$1\n"})/g)

复制代码

回复 1# zuibird


   

kk861123

回复 1# zuibird


    这么规范的格式，split得了：

1. my @myArray = split(/#/,$BetString);

复制代码

illidanee

Perlvim 发表于 2012-11-27 21:10
my @capture_digits = $string =~ /(\d+)/g;

简洁