ファイルの内容を全て文字列に読み込む

プロセス生成のコストとか気になったらちゃんと書き直す。気にならなければこのまま。

my $text = `cat a.txt`;

• In Perl, how can I read an entire file into a string? - Stack Overflow

my $text = do { local $/=undef; open(my $fh,"a.txt"); <$fh> };

my $text;
open(my $fh,"a.txt");
while(<$fh>){ $text.=$_ }

open(my $fh,"a.txt");
my $text = join "", <$fh>;

my $text = do{ open(my $fh,"a.txt"); join "",<$fh> };

• File::Slurp - ファイル全体の効率的な読込/書込 - perldoc.jp

# apt-get install libfile-slurp-perl

use File::Slurp;
my $text = read_file("a.txt");