作者giacch (小ａ)
看板Perl
标题Re: [问题] 字串比对次数?
时间Sun Nov 23 23:50:50 2008
※ 引述《deh3215 ()》之铭言：
: 举例:
: #!/usr/bin/perl
: $str="http://secure.ooo.com.secure.ijm.secure";
: if ($num=$str =~/(secure)*/) {
: print $num;
: }
: 希望可以印出比对secure的次数
: 不论是$num=$str =~/(secure)*/
: 或是$num=$str =~/secure*/
: 或是$num=$str =~/secure/
: $num值都为1..应该是3 囧
#!/usr/bin/perl
$str = '
http://secure.ooo.com.secure.ijm.secure';
$num = grep(/secure/, split(/[^a-z]/, $str));
print $num . "\n";
这样 $num 就会是 3 了...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.232.172.163
※ 编辑: giacch 来自: 118.232.172.163 (11/23 23:51)
1F：→ deh3215:感谢,孤狗了好久都没找到答案,只好上来问,这是比较快,聪 11/24 00:32
2F：→ deh3215:做法吗,把grep好好研究一下 11/24 00:33
3F：推 deh3215:原来grep+split可做到这样的功能... 11/24 00:41
4F：→ giacch:很好玩对吧~ ^^ 11/24 00:50