メモっとこう、Perlでファイルを変数に一気読み
## $/(改行区切り)を無効にすることにより改行も含めて一括で変数dataに読み込める open (IN , "< input.txt"); local $/ = undef; my $data = <IN>; print "$data\n"; close(IN);
忘れるからね。いつも。
## $/(改行区切り)を無効にすることにより改行も含めて一括で変数dataに読み込める open (IN , "< input.txt"); local $/ = undef; my $data = <IN>; print "$data\n"; close(IN);
忘れるからね。いつも。