Eidgenosse: neues fenster öffnen

Beitrag lesen

Hallo Martin,

#!/usr/bin/perl
(my $name, my $value) = split(/=/, $ENV{QUERY_STRING});
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print "Content-type: text/html\n\n";
print $value;

Die Ausgabe ist natürlich kein sauberer HTML-Code, das wirst Du also anpassen müssen. Aufrufen tust Du das Skript, welches ausführbar im CGI-Verzeichnis liegen muß, über

/Pfad_zu_cgi-bin/name_des_programms?text=Hallo+Welt

Der Text muß wie üblich kodiert werden (Leerzeichen, Sonderzeichen etc. => siehe SelfHTML).

Gruß

Eidgenosse