なんか先輩がログファイルから指定した文字の数を数えるということをされていて，Perl だったらどうやるだろうとか思ったりした．
直感的にはこんな感じだけど，なんかもっと良い方法がありそう．
$ cat count-char.dat aaaaaaaaiiiaabcxbfjdjal;djifa;jfdlsdka;fjdls;ajda;jd;aiii; aaaaaaaaiiiaabcxbfjdjal;djifa;jfdlsdka;fjdls;ajda;jd;aiii; $ perl -nle '$c++ while /i/g; END{ print "$c chars" }' count-char.pl 14 chars $ cat count-char.ja あいうえおかきくけこ きょうもげんきだごはんがうまい $ perl -nle '$c++ while /う/g; END{ print "$c chars" }' count-char.ja 3 chars
