ファイル
いっっっっっっつも忘れてググるのでメモっとく。 open my $fh, "<", "file.txt"; my $data = do{ local $/; <$fh>}; close $fh; print $data; モジュール使えるなら Perl6::Slurp が楽ちん。 use Perl6::Slurp; my $data = slurp 'file.txt'; print $data;
いっっっっっっつも忘れてググるのでメモっとく。 open my $fh, "<", "file.txt"; my $data = do{ local $/; <$fh>}; close $fh; print $data; モジュール使えるなら Perl6::Slurp が楽ちん。 use Perl6::Slurp; my $data = slurp 'file.txt'; print $data;