Bilder mit Perlscript ausgeben - #3551 (Perl/CGI)

coax

2003-09-15 20:23

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

Du liest nur eine Zeile aus der Datei

Code: (dl )

my $Data = <IMAGE>;

ändern in

Code: (dl )

my @Data = <IMAGE>;

jetzt nur noch der richtige Header und binmode auf die Standardausgabe

Code: (dl )

1
2
3

print "Content-type: image/gif\n\n";
binmode(STDOUT);
print @Data;

oder so

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my($image);

print "Content-type: image/gif\n\n";

open(IMAGE, '<image.gif') or die $!;
binmode(IMAGE);
{
        local $/;
        undef($/);
        $image = <IMAGE>;
}
close(IMAGE);

binmode(STDOUT);

print $image;

Den Bug im PERL-Code-Tags sollte man mal fixen :(\n\n

,,Das perlt aber heute wieder...'' -- Dittsche