Nicht genügend Arbeitsspeicher für eine sehr große Binärdatei über HTTP

Question

Der folgende Code ist der Originalcode eines Perl CGI-Skripts, das wir verwenden. Selbst für sehr große Dateien scheint es zu funktionieren, aber nicht für wirklich große Dateien.

Der aktuelle Code ist:

$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; 

Wenn ich den Code richtig verstehen, ist es die gesamte Datei in den Speicher geladen wird, bevor „Drucken“ es. Ich nehme an, es wäre viel besser, es per Chunk zu laden und anzuzeigen. Aber nachdem ich viele Foren und Tutorials gelesen habe, bin ich immer noch nicht sicher, wie es am besten geht, mit Standard-Perl-Bibliotheken ...

Letzte Frage, warum wird "binmode" am Ende angegeben?

Vielen Dank für jeden Hinweis oder Rat,

Answer 1

Ich habe keine Ahnung, was binmode $DLFILE ist. $DLFILE hat nichts mit dem Dateihandle DLFILE zu tun, und es ist ein bisschen spät, den binmode der Datei jetzt zu setzen, dass es bis zum Ende gelesen wurde. Es ist wahrscheinlich nur ein Fehler

Sie können dies stattdessen verwenden. Es nutzt modernes Best Practices Perl und liest und sendet die Datei in 8K chunks

Der Dateiname von $ID gemacht zu werden scheint, so bin ich nicht sicher, dass $name richtig sein würde, aber ich kann nicht

sagen Achten Sie darauf, die Klammern zu halten, da der Block macht Perl den alten Wert von $/ wiederherstellen und schließen Sie die geöffnete Datei handhaben ist

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

Sie sind auf einmal die gesamte Datei in den Speicher zu ziehen. Es empfiehlt sich, die Datei zeilenweise zu durchlaufen, wodurch dieses Problem behoben wird.

Beachten Sie auch, dass ich den Code geändert habe, um den richtigen 3-Arg open zu verwenden, und ein lexikalisches Dateihandle anstelle eines globalen Barewords zu verwenden.

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; 
} 

Der binmode Anruf erscheint im Kontext nutzlos zu sein, was du hier gezeigt haben, wie $DLFILE kein gültiger, in gebrauchs variabel zu sein scheint (add use strict; und use warnings; an der Spitze Ihrer Skript ...)