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

coax

2003-09-15 20:59

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

Code (perl): (dl )

undef($/);

setzt den $/ (Input-Record-Separator) auf undef.
$/ bestimmt welches Trennzeichen für Eingabedaten verwendet werden soll, ist standardmäßig auf \n (Zeilenumbruch) gesetzt.
Die ganze Aktion ermöglicht uns die Datei in einem Stück einzulesen (in ein Skalar statt in ein Array).

Das würde auch so funktionieren

Code: (dl )

1
2
3

open(FH, $file) or die $!;
my $content = join('', <FH>);
close(FH);

Die geschweiften Klammern und local veranlassen, dass sich das Ändern von $/ nicht auf das gesamte Skript auswirkt.

siehe
perldoc perlvar

Code: (dl )

use strict;

open(IMAGE, "image.gif");
binmode(IMAGE);
    my @image = <IMAGE>;
close(IMAGE);


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

binmode() würde ich hinter den Header schreiben, aber ansonsten funktionierts genauso.\n\n

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