Warum sieht mein Bild download mit Perl-LWP geben Sie mir die falsche Größe Datei?

Ich versuche, ein Bild von einem HTTP-server mit Perl.

Habe ich die vollständige URL der Datei an und bin versucht, 

my $data = LWP::Simple::get $params{URL};
my $filename = "image.jpg";
open (FH, ">$filename");
print FH $data;
close (FH);

Nun, logisch, für mich jedenfalls, sollte dies funktionieren. Aber die Dateien sind leicht in verschiedenen Größen, und ich kann nicht herausfinden, warum.

Hilfe!

  • Welche Größen sind Sie?
  • Nur das problem ist, dass die Dateien unterschiedliche Größen? Wie gering ist gering? Ist das Bild, das an den Benutzer gesendet werden, die gleichen wie das Bild auf deinem server?
  • 20k Bild war Weg von vielleicht 30 bytes. Dave Hinton hat das problem gelöst. Ich war nicht im binmode.
InformationsquelleAutor Xetius | 2009-05-29
  1. 14

    Müssen Sie binmode richtig zu schreiben, die Bilddaten auf die Festplatte.

    my $data = LWP::Simple::get $params{URL};
my $filename = "image.jpg";
open (FH, ">$filename");
binmode (FH);
print FH $data;
close (FH);

    Ansonsten wird es als text interpretiert, und die Zeilenumbrüche erhalten verwurschtelt.

    • Sie brauchen nicht eine Globale filehandle hängen so Rum. Use File::Slurp ' s write_file oder LWP::Simple::getstore.
    • Ich fand die große grüne Häkchen rechts neben binmode amüsant.
    InformationsquelleAutor dave4420
  2. 13

    Dave hat Recht, du solltest/musst deine Datei-handle in den Binärmodus. Aber man kann alles in einem Rutsch:

    LWP::Simple::getstore( $params{URL}, 'image.jpg' );
    InformationsquelleAutor innaM
Schreibe einen Kommentar