iww https://blog.hatena.ne.jp/iww/ 揮発性のメモ２ https://iww.hateblo.jp/ perl プロセス生成のコストとか気になったらちゃんと書き直す。気にならなければこのまま。 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 "", <… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fiww.hateblo.jp%2Fentry%2F20140507%2Ffile_get_contents" title=" ファイルの内容を全て文字列に読み込む - 揮発性のメモ２" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2014-05-07 00:00:00 rich https://iww.hateblo.jp/entry/20140507/file_get_contents 1.0 100%