テキストファイルを一気に読み込む
Whileループじゃなくて一気に中身を変数にいれたいときはこうする。
my $str = do { open my $fh, '<', $file or die $!; local $/ = undef; <$fh>; };
local $/ = undef
とやるとdo
ブロック内でのみ改行コードを無視できる。
readline関数が一度に読み取るのは、$/ に設定されている文字が出現するまでです。$/は、インプットレコードセパレータといい、デフォルトでは \n 、改行文字が設定されています。