こないだ作ったリストを使って、自分の日記から声優さんの言及数を調べる。 use strict; use warnings; my $list = shift; my $export = shift; my $fh; open $fh, '<', $list or die; my @sylist = map{(split(/\t/))[0]} <$fh>; close $fh; my $re = eval …