2003-09-20 行内も含めて、パターンの出現のカウント dev 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の方がちょっと速い。もっといい方法ありそう・・・