perlでテキストファイル等を変数に読み込む時初心者の場合よく下記の様にしがちです。

my $str='';
open(FILE,"hogehoge.txt");
while(<FILE>){
$str .= $_;
}
close(FILE);

もっと簡単に読み込む方法があります。

$/ = undef;
open(FILE,"hogehoge.txt");
my $str = <FILE>;
close(FILE);
$/ = "\n";

$/は改行の区切りを指定する特別な変数です。
これをundefにする事により１行の区切りを改行コードで区切ることがなくなるので
一気に変数に読み込むことができる様になります。

タグ :