理系学生日記

おまえはいつまで学生気分なのか

忍者TOOLS

指定した文字の数を数えるワンライナー

なんか先輩がログファイルから指定した文字の数を数えるということをされていて,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