→ deh3215:另一種寫法,感謝題供不同的解 11/24 13:37
→ giacch:其實這才是原問題的解答... (逃~~~ 11/24 14:03
→ deh3215:g兄的方法比較巧妙 這篇的解法比較正規(找不到形容詞) 11/24 17:31
推 deh3215:另外print $#num+1也可以印出3 scalar是指陣列中元素個數? 11/24 21:57
→ deh3215:n兄的作法和自己一開始想的一樣,不知道perl有全域比對 囧" 11/24 22:04
※ 引述《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 囧
要用 match global 吧..
if (@num = $str =~/secure/g)
{
print scalar(@num);
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 67.188.125.61