• ベストアンサー

substr_count() のPerl版

substr_count() のPerl版はありますか? substr_count() のような関数をPerlで使いたいんです。 基本的に該当文字列の出現回数さえカウントできればいいんです。 誰か教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • kumoz
  • ベストアンサー率64% (120/185)
回答No.1

Perl には substr_count はありませんが、サブルーチンで作ることは難しくはありません。以下は骨組みだけです。 sub substr_count { scalar @{[$_[0] =~ /$_[1]/g]}; } print substr_count('PHPperlPHP', 'PHP'), "\n"; # 2

PCSave
質問者

お礼

http://soft.light-tv.club/icounter/ 貴方のおかげでソフトウェアが出来ました! ありがとうございました。

関連するQ&A