→ deh3215:感謝,孤狗了好久都沒找到答案,只好上來問,這是比較快,聰 11/24 00:32
→ deh3215:做法嗎,把grep好好研究一下 11/24 00:33
推 deh3215:原來grep+split可做到這樣的功能... 11/24 00:41
→ giacch:很好玩對吧~ ^^ 11/24 00:50
※ 引述《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)