Hallo, Jens Tautenhahn schrieb:
Ekkard Gerlach schrieb am Sonntag den 08. Juli 2001:
#!/usr/bin/perl print "Content-Type: image/gif\n\n"; system("cat images/n.gif");
ouch ein system aufruf ... (startet JEDESMAl einen neuen prozess (fork exec .... --> fress zeit ...)) IMHO viel schoener ist es das bild zeichenweise einzulesen und auszugeben z.B.: -.-.-.-.- schnipp .-.-.-.-.-. open(GIFDATEI, "<$gif_path") || die $gif_path." nicht gefunden !! \n"; while(($AktuellesZeichen = getc(GIFDATEI)) ne "") { print $AktuellesZeichen } close(GIFDATEI); ^.^.^.^ schnapp ^.^.^.^. das zeichenweise auslesen erreicht man mit getc(). hier wird orginalgetreu das wiedergegeben, was in der Datei steht. Vergleichsoperator fuer die abbruch bedingung ist ""
Internal Server Error
Versuch mal, Dein Script "zu Fuß" auszuprobieren. Evtl. mit "c2.pl | less". Dann wirst Du sehen, daß die Ausgaben von cat und print durcheinanderkommen. Setze vor das print noch ein "$| = 1;", dann erfolgt die Ausgabe ungepuffert.
den kannte ich noch nicht :-) Leider funktionert das mit konsolen stdout nicht mehr so recht wenn man typisierte dateien oder im allgemeinen textdateien darauf ausgibt. - manchmal muss dann ein "reset" alles wieder ins rechte lot bringen ... Zeichen 0x07 ist auch immer beliebt :-)))) mfg Thomas P.S.: die entwicklung von Perl soll ja nu eingestellt werden, da keine sonderzeichen mehr zur verfuegung stehen. ;;;-))) vieleicht aendert sich das ja mit Unicode ;;;;;;;-))))))))) -- Thomas Schmidt || t.schmidt@sh-home.de http://www.md-network.de/ || registered LINUX user No.: 171016 ======================================================================= -----BEGIN GEEK CODE BLOCK----- Version: 3.1 GCS/U d-(?) s:@ a-- C++ UL++>(++++)>$ P++(++++)>$ L++>(++++) E W- N++ o K- w O M- V- PS+ PE++ Y+ PGP t 5 X+ R tv++ b++ DI-- D+ G++ e* h* r-- y? ------END GEEK CODE BLOCK------