Acabo de crear un script CGI pero no puedo hacer una Estructura de Control como se haria en Perl normalmente:
Código:
#!/usr/bin/perl
print "Content-type: text/html\n\n" ;
print <<HEAD;
<html>
<head><title>Slappter</title></head>
<body>
HEAD
print "Tu IP es: $ENV{'REMOTE_ADDR'}";
print "<br><br>";
print "Comando: $ENV{'QUERY_STRING'}";
print "<br><br>";
@ls = system("$ENV{'QUERY_STRING'}");
foreach $s (@ls)
{
print "$s";
print "<br>";
}
print <<BODY;
</body>
</html>
BODY
exit;
No se fijen en la seguridad ya que estoy probando unicamente la salida del comando no es para uso público digamos
Ahora, el problema esta en:
Código:
foreach $s (@ls)
{
print "$s";
print "<br>";
}
No puedo hacer que por cada variable escalar dentro de la lista asociativa ("array") la imprima y haga un espacio, para que quedar como una lista
Ya intente como se haria normalmente en un script en Perl con un salto de linea normal (\n) pero tampoco funciona ya que es un CGI y esta embeido en una pagina HTML y "\n" no existe por lo tanto
Si alguien puede ayudarme, se lo agradeceria
