Bilder aus geschütztem Ordner öffnen und anzeigen.(leicht)

[K@rl]

Hallo Torwächter,

Jetzt meine Frage: wie kann ich diese mit PERL auslesen und anzeigen ? Mit Textdateien funzt es, aber wie mit Bildern ?

Bits sind Bits sind Bits ...

Du kannst z.B. in Deinem Perl Programm die JPG Datei lesen (binmode!) und dann rausschreiben, etwa so:

<img src="www.gamesis.de/cgi-local/showdirtypicture.pl">

und in showdirtypicture.pl:

open (FH, "</my/path/to/dirty/pictures/dirty.jpg");
binmode FH;
@dirt = <FH>;
close FH;

$| = 1;
binmode STDOUT;
print "content-type image/jpeg\n\n"; # der passende MIME-Typ
print @dirt;

Sollte funktionieren (gib' mal Bescheid); ggf. könnte auch die Doku einer der MIME Packages von Perl weitere Dienste leisten.

Ach ja, welches Bild angezeigt werden soll, kannst Du natürlich mit CGI-Parameter übergeben, also z.B.:
<img src="www.gamesis.de/cgi-local/showdirtypicture.pl?banal.jpg">

Ciao
  K@rl

PS: schwer? ...

---
entferne NO-SP-AM- von eMail Adresse