|
Perl
I know what you now think ;) it's totally useless... WRONG !!! :)
As it can be the interface to your favorite application servering data
to your box.
Perl scripts can only produce text output. But you can give perl scripts
formular data as you would do within a webapplication. If you don't know how to code a webformular in perl, stop reading any further as I won't explain it.
You can use a normal decode routine for GET-DATA.
This CAN work,must not, depends on your perl
"$daten = $ENV{"QUERY_STRING"};"
This does work,but looks a bit odd, I know:
"$daten = readpipe("type env:QUERY_STRING");"
print "query=".$daten;
@Formularfelder = split(/&/, $daten);
foreach $Feld (@Formularfelder)
{
($name, $value) = split(/=/, $Feld);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$Formular[$i] = $value;
$i = $i + 1;
print "name=$name value=$value";
}
print "Ende";
|