行内も含めて、パターンの出現のカウント


perl -e '$c=0;while(<>){while(/a/g){$c++;}}print "$c\n"'
awk 'BEGIN{c=0}{c+=gsub(a,"")}END{print c}'
awk 'BEGIN{RS="a"}END{print NR-1}' (最後に出現すると落すけど)
 perlの方がちょっと速い。もっといい方法ありそう・・・