ファイルからある文字列の個数を数えたい

最終的な速度については分かりませんが，Perl で効率良く実現しようというのであれば，配列（下の例では @pattern）に照合する文字列を入れておいて，ファイルから一行読むごとに， foreach $pattern (@pattern) { $count{$pattern} += /$pattern/g; #行の内容は $_ に入っていると仮定 } とかしてやればよいのではないでしょうか。 一行にパターンが必ず一回しか現れないのであれば，2行目は， $count{$pattern}++ if (/$pattern/); とかすることも可能でしょう。 上記コードでは，パターン照合回数は grep を使ったときと同じですが，ファイルI/Oの回数は 1/パターン数 で済みます。が，パターン照合の速度そのものは grep のほうが速いでしょうから，最終的にどちらが速いかはやってみないと分かりませ