perl中如何匹配一个字符串中以是开头的单词

youngbit007

perl中如何匹配一个字符串中以s开头的单词;

forexample:

$str="it is a small cat, so cute.";

xjqun1122

我也是个新手，你看这个满足你需求不？

1. $str =~ /\bs\w+/g

复制代码

youngbit007

那如何将匹配的字符输出呢？回复 2# xjqun1122


   

xjqun1122

1. my @s_word = $str =~ /\bs\w+/g;

复制代码

回复 3# youngbit007


   

grshrd49

回复 4# xjqun1122


    全局替换的修饰符号/g只能在 s///g的替换模式中才有效吧?还是我记错了?
如果我没记错的话 这样只能抓出字符串中一个匹配的元素

xjqun1122

应该是没有问题的，我刚刚写代码看了一下

while($str =~ /\bs\w+/g)
{
        print "$&\n"       
}

回复 5# grshrd49


   

rubyish

xjqun1122 发表于 2013-07-19 21:11
应该是没有问题的，我刚刚写代码看了一下

while($str =~ /\bs\w+/g)

没有问题的~ 3Q~{:3_188:}

墨迹哥

正则匹配不就是：

1. ^s
   
2. 
   
3. 以S为开头的字母，同类反推

复制代码