Ya me funcionó. Pero me es muy vergonzoso preguntar cada problema que se me planteé... estoy buscando un manual que me explique la estructura a seguir en cada caso. Por ejemplo yo puse:
Using perl Syntax Highlighting
$doc = get
'$host . $comando';Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
y por comerme unos simples paréntesis ya no me funcionó el código:
Using perl Syntax Highlighting
$doc = get
($host . $comando);Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Mirad como estoy con el código:
Using perl Syntax Highlighting
$host=$ARGV[0
];
print "$host";
$comando=<STDIN>;
chomp $comando;
if ($comando =~ s/ /+/g) {
print "Comando injectado: $comando\n";
$doc = get
($host . $comando);
if ( $doc =~ m/ Web /mosix ) {
print "EXISTE\n";
}
else {
print "NO EXISTE\n";
}
} # fin del if del comandoColoreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Le añadí:
Using perl Syntax Highlighting
if ($comando =~ s/ /+/g)Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Para que todos los espacios que haya en el comando se cambien por un
+, para evitar errores.
Pero aún sigo queriendo hacer una cosa, por ejemplo si a mi me busca en la web la palabra "Web" , quiero que me imprima todo el párrafo que le prosigue.
Ejemplo: La web está muy bien.
Pues si el script encuentra la palabra web que imprima todo lo que le sigue, quedaría así: web está muy bien.
Pero no tengo ni idea por dónde empezar para hacer eso.
