Foro - Perl en Español

Lo que estoy intentado hacer es entrar en una web y buscar una palabra mediante grep. Y si existe que me lo confirme.



Con ese script estoy intentando entrar a google y si me encuentra la palabra "Web" que me imprima "EXISTE". Pero ese code está mal.

Con IO::Socket haces la conexión, si... pero no estás haciendo la petición HTTP.

Te aconsejo que uses el paquete LWP. Mírate los ejemplos de lwpcook.

Copiado del lwpcook:

Estoy intentando hacer algo más complicado ... Un script que te pida la URL de una web mediante argumentos... y después tu le metes desde el mismo programa parte de esa URL y que después haga el grep:




Un ejemplo es:

Código: Seleccionar todo

argumento ==> www.localhost.com/index.asp?id=
comando ==> 72

Doc ==> www.localhost.com/index.asp?id=72

y después que haga el grep en esa url y si encuentra la palabra a buscar que lo diga... pero la cuestión es que está la palabra y me dice que no existe.

Haciendo unos pequeños cambios en el código vas a conseguir lo que quieres:



Saludos

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:


y por comerme unos simples paréntesis ya no me funcionó el código:


Mirad como estoy con el código:


Le añadí:



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.

Muy bien, ya estamos hablando una cosa algo diferente, lo primero sería ¿qué consideras como un párrafo dentro de la página? ¿Cada línea separada? ¿Un bloque dentro de los tags de párrafo <p>?

Te podríamos ayudar más si pones un ejemplo de la página que estás leyendo y a base de ello el resultado que quisieras encontrar de ella.

Como comentario del código que tienes ahora, debes de hacer la sustitución sin el if, de lo contrario, si tu variable $comando no contiene espacios entonces se saltará por completo el bloque del if, y supongo que no deseas este comportamiento.

Me refiero a un <p> en HTML. Ejemplo:

Código: Seleccionar todo

<<Comienzo>>

blablablablablablablablablablablablablablablablablablablablablablablabla
blablablablablablablablablablablabla.

<<FIn>>

blablablablablablablablablablablablablablablablablablablabla.

Respecto a los del if, ¿cómo podría cambiar los 'espacios' por '+' de otra forma a la que he puesto?

No fueron los paréntesis lo que falló. El fallo estuvo en usar comillas simples.

La regla es fácil: si hay comillas simples, no hay interpolación de variables.

Así que la línea
hacía justo eso: almacenaba en $doc la cadena de caracteres literal que habías pasado: $host . $comando.

En cuanto al tema de los espacios: haces correctamente la sustitución con el s///, pero, ¿por qué (if) necesitas preguntar si lo ha hecho?

Es cuestión de lógica del programa saber el por qué pones la sustitución como una condición, si no quieres que sea una condición. Si quieres que sea solo una sustitución, te sobra la condición.

En primer lugar, como decía explorer, para quitar los espacios sin tener que usarlo como condicional, simplemente quitas el if y pones la línea:



Ahora, aún sigo sin ver el HTML que necesitas leer y parsear, por lo que creo que tienes dos opciones.

1. Usar el módulo HTML::Parser y sacar todos los <p> de tu HTML y luego realizar la búsqueda con el regexp en cada uno de ellos.

2. Si el código de tu HTML está exactamente como me pones en el ejemplo y cada párrafo está divido por dos saltos de línea '\n\n', entonces podrías hacer algo así:




Pero nuevamente, se te podría dar una respuesta más acertada si podemos ver el código del HTML que deseas parsear.

Saludos