Thread Bilder mit Perlscript ausgeben (14 answers)
Opened by Free Faq at 2003-09-15 11:36

Free Faq
 2003-09-15 20:48
#3552 #3552
User since
2003-09-10
141 Artikel
BenutzerIn
[default_avatar]
THX es funtzt! Könntest Du mir das vielleicht genauer Erklähren?
Code: (dl )
1
2
3
4
5
{
       local $/;
       undef($/);
       $image = <IMAGE>;
}


Hab einwenig rumgetestet und folgendes rausbekommen, was auch funktioniert:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
use strict;

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


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

Hat mein Script irgendein Nachteil deins gegenüber? Oder kann ich das ohne Sorgen verwenden?\n\n

<!--EDIT|Free Faq|1063644600-->
Haut mich nicht, ich bin ein Noob!

View full thread Bilder mit Perlscript ausgeben