请教正则表达式如何遍历字符串呢，谢谢

autumn_leaf

字符串 $str='asdf100sdafaf25sfdfm80asf';
我想用正则表达式遍历这个字符串，并且依次提取\s+ 提取所有的\s+
也就是
100
25
80

怎么办呢？
谢谢啊

zhlong8

say for $str =~ /\d+/g

2gua

zhlong8都用上Perl 5.10+的风格了。

zhlong8

回复 3# 2gua


    我开始接触 Perl 都 5.10 好久了

autumn_leaf

say for $str =~ /\d+/g
zhlong8 发表于 2011-05-24 22:28

    请教一下，这是啥意思啊？能解释一下吗？google了半天也没找到

zhlong8

请教一下，这是啥意思啊？能解释一下吗？google了半天也没找到
autumn_leaf 发表于 2011-05-25 09:06

    在 list context 下 $str =~ /\d+/g 返回所有（/g 修饰符的作用）数字组成的序列。RE google 查不出来吧，很多标点符号。你应该查 perlretut perlre

autumn_leaf

在 list context 下 $str =~ /\d+/g 返回所有（/g 修饰符的作用）数字组成的序列。RE google 查不 ...
zhlong8 发表于 2011-05-25 09:09

    不懂啊，谢谢
那我怎么将这些数字打印出来呢？

longbow0

perldoc -f say

2gua

回复 4# zhlong8


    改天你试试Perl 6？

zhlong8

回复  zhlong8


    改天你试试Perl 6？
2gua 发表于 2011-05-25 09:30

    Rakudo 目前还只能玩玩，其实我们早都在用 Perl6 了不是，given when、smart match、Moose、Regexp::Grammars……