部分文字列頻度計数

Perl Algorithm

ファイルの中にある文字列が何回出現するか数えたいとする。

sub count_occurrences {
    my ($search, $text) = @_;
    my @m = ($text =~ /\Q$search\E/g);
    return scalar @m;
}

さて、このサブルーチンはうまく動くだろうか。うまく動かないとすれば、何がまずくてどう直せばよいだろう。