次のコードHTTP

Question

を超える非常に大きなバイナリファイルを提供し、我々が使用しているPerlのCGIスクリプトの元のコードです。非常に大きなファイルであっても、動作しているようですが、本当に巨大なファイルではありません。

現在のコードは次のようになります。

$files_location = $c->{target_dir}.'/'.$ID; 
open(DLFILE, "<$files_location") || Error('open', 'file'); 
@fileholder = <DLFILE>; 
close (DLFILE) || Error ('close', 'file'); 

print "Content-Type:application/x-download\n"; 
print "Content-Disposition:attachment;filename=$name\n\n"; 
print @fileholder; 
binmode $DLFILE; 

私はコードを正しく理解していれば、それは「印刷」する前にそれをメモリ内のファイル全体をロードしています。もちろん、ロードしてチャンクで表示するほうがずっと良いと思いますか？しかし、多くのフォーラムやチュートリアルを読んだ後、私はまだ、標準のPerlのライブラリで、最高のそれを行う方法がわからないです...

最後の質問は、なぜ最後に指定「のbinmode」とは？

おかげで任意のヒントやアドバイスをたくさん、

Answer 1

私はbinmode $DLFILEが何のためにあるのか見当がつかない。 $DLFILEは、ファイルハンドルDLFILEとは何の関係もありません、それは今では最後に読み込まれたことを、ファイルののbinmodeを設定するために少し遅れます。これはおそらく、あなたが代わりにこれを使用することができますちょうど間違い

です。それは、現代のPerlベストプラクティスを使用して読み込み、ファイル名はので、私は$nameが正しいだろうということはよく分からない$IDから作られているように見える8Kチャンク

でファイルを送信しますが、私は

を伝えることはできませんブロックは、Perlが$/の古い値を復元して、開いているファイルを閉じますよう

my $files_location = "$c->{target_dir}/$ID"; 

{ 
    print "Content-Type: application/x-download\n"; 
    print "Content-Disposition: attachment; filename=$name\n\n"; 

    open my $fh, '<:raw', $files_location or Error('open', "file $files_location"); 
    local $/ = \(8 * 1024); 

    print while <$fh>; 
} 

Answer 2

あなたはメモリに一度にファイル全体を引っ張っています。この問題を解消するために、行単位でファイルをループするのが最適です。

また、適切な3-arg openを使用し、グローバルなベアワードの代わりにレキシカルファイルハンドルを使用するようにコードを修正しました。

open my $fh, '<', $files_location or die $!; 

print "Content-Type:application/x-download\n"; 
print "Content-Disposition:attachment;filename=$name\n\n"; 

while (my $line = <$fh>){ 
    print $line; 
} 

binmodeコールは$DLFILEが有効な、使用中の変数であるようには見えないよう（あなたの一番上にuse strict;とuse warnings;を追加し、あなたがここに示されたものとの関連で役に立たないように見えますスクリプト...）