¡#! c:\apachefriends\xampp\perl\bin\perl.exe si (longitud ($ENV {“QUERY_STRING”}) > 0) { $buffer = $ENV {“QUERY_STRING”}; los @pairs = partieron (/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = parten (/=/, $pair); =~ el s/% ([a-fA-F0-9] [a-fA-F0-9]) /pack (“C” de $value, maleficio ($1)) /eg. ; $in {$name} = $value; } } Contenido-tipo de la impresión “: texto/HTML \ n \ n”; de la impresión '
'; $id = $in {“identificación”}; $proxy = $in {“poder”}; $proxyport = $in {“proxyport”}; $proxyuser = $in {“proxyuser”}; $proxypass = $in {“proxypass”}; SSL Javaviewer del