前回のエディタの置換機能を使って数を数えるやり方（小技集001、小技集002）は簡単ですが、何種類もの文字列の数を数えるとなると少したいへんです。そこでほんの少し本格的に、Perlで簡単に数を数えましょう。

　あるフォルダ内の拡張子がtxtであるファイル中に含まれる「★」「●」「〓」の数を数えることにします。

　同じフォルダに下のようなスクリプト(sample003.pl)ファイルを作ります。

while(<>){
	$hosi += s/★/★/g;
	$maru += s/●/●/g;
	$geta += s/〓/●/g;
}
print "★: $hosi個\n";
print "●: $maru個\n";
print "〓: $geta個\n";

コマンドプロンプトをそのフォルダで開き

と実行します。すると

と、一覧で数えてくれます。

$hosi = s/★/★/g;