#!c:\apachefriends\xampp\perl\bin\perl.exe -wT print "Content-type: text/html\n\n"; print ""; my %FORM; &readForm; print "Ihre IP: $FORM{ip}

"; # Ausgabe der IP-Adresse print ""; print `ping $FORM{'ip'}`; # Dieser Befehl funkt. so nicht sub readForm &nbs p; # Parameter in %FORM einlesen { my ($buffer,@pairs,@pair,$i); if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } @pairs = split(/&/, $buffer); foreach (@pairs) { @pair = split(/=/, $_, 2); for ($i=0;$i<2;$i++) { $pair[$i] =~ tr/+/ /; $pair[$i] =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } $FORM{$pair[0]} = $pair[1]; } }