* ファイル読み込み Path::Class [#i3b0ed7c] ** ファイルの内容をすべて読み込み変数に格納する [#b8077d1c] use Path::Class qw/file/; my $contents = file('/homo/taro/foo.txt')->slurp(iomode => '<:encoding(euc-jp)'); http://search.cpan.org/perldoc?Path::Class::File
* ファイル読み込み Path::Class [#i3b0ed7c] ** ファイルの内容をすべて読み込み変数に格納する [#b8077d1c] use Path::Class qw/file/; my $contents = file('/homo/taro/foo.txt')->slurp(iomode => '<:encoding(euc-jp)'); http://search.cpan.org/perldoc?Path::Class::File