2010年6月20日日曜日

ファイルを一気に読み込む方法

Perlで一気にファイルを読み込みたい場合の技です。 この方法は配列で読み込み結合するよりパフォーマンスが高いです。 ただし、大きいファイルには不向きなので注意を。

#読み込むファイル名
my $input_file = 'input.txt';

#ファイルを読み込む
open my $fh, '<',$input_file;
my $input_data = do{ local $/; <$fh> };
close ($fh);

0 件のコメント:

コメントを投稿