Perl › 関数 › here getc関数を使って1文字づつ読み込むこともできます。 my $c = getc $fh; サンプル 以下は、1文字読み込みのサンプルです。 use strict; use warnings; # 1文字読み込み # 読み込みたいファイル名 my $file = shift; print "1: 1文字ずつ…