2017-02-13 コード一気に読み込む Slurpモジュールでも同じ Perl my $text = do {local $/; <$fh>;}; my $text = do {local $/ = undef; #改行デリミタをリセット <$fh>; };