perl点点滴滴

1 全局匹配中怎么得到全部的匹配项

正则表达式在全局匹配时可以用while来逐个获取匹配到的记录，也可以用数组来接收。

my $str = "hello 1111 how are 232 you 2323";
while( $str =~ /(%d)/g)
{
    print $1;
}

或者存到数组中

my $array = ($str =~ /(%d)/g);