Foro - Perl en Español

por **situ** » 2008-04-14 16:30 @729

Los molesto porque estoy intentando terminar un script, el cual lo que hace es buscar en una url la palabra "marcos".

Prueba las siguientes urls:

Código: Seleccionar todo: http://localhost/legajo.php/legajos.txt http://localhost/legajos.php/legajos.txt

Hasta ahí anda todo, pero me gustaría poder hacer que busque en varios archivos la palabra "marcos"; en este momento está seteado solamente "legajos.txt", pero tengo un archivo el cual dentro contiene el nombre de varios archivos que tendría que buscar esta palabra.
Probé hacer un array leyendo este archivo pero no me funcionó.
Gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;

$host='http://localhost/';
$string="marcos";
$archi='legajos.txt';
$pagina1="legajo.php";
$pagina2="legajos.php";

for($i=1;$i<3;$i++){
$cont=pagina.$i;
chomp$cont;

$webs=$host.$$cont."$archi";

my$req=HTTP::Request->new(GET=>$webs);

my$ua=LWP::UserAgent->new();

$ua->timeout(30);

my$response=$ua->request($req);

if($response->is_success){
if($response->content=~/$string/){
print"$webs";
}
}
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl

use warnings;
use strict;
use HTTP::Request;
use LWP::UserAgent;

my$host='http://localhost';
my$string="marcos";

#Lista de paginas en un array, así es fácil agregar más páginas
my@paginas=("legajo.php","legajos.php");

#Abrimos el archivo con la lista de archivos a leer
openmy$FILE,'<','lista_de_archivos.txt'ordie$!;
my@archivos=<$FILE>;
close$FILE;


#Creamos nuestro objeto LWP
my$ua= LWP::UserAgent->new();
$ua->timeout(30);

#Iteramos en cada archivo
formy$archivo(@archivos){
chomp$archivo;

#Iteramos en cada pagina
formy$pagina(@paginas){

#Armamos el url
my$url=join"/",$host,$pagina,$archivo;

#Creamos un nuevo request
my$req= HTTP::Request->new(GET=>$url);

my$response=$ua->request($req);

if($response->is_success){
if($response->content=~/$string/mi){
print"$url\n";
}
}

}

}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Limpié el código bastante, y de una vez te puse para que usaras un array.

Saludos

por **situ** » 2008-04-14 18:38 @818

Mil gracias por todo.

por **situ** » 2008-04-15 09:46 @449

Le agregué para que me guarde el reporte en HTML pero solamente me guarda el primer archivo encontrado y no los demás :S.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use warnings;
use strict;
use HTTP::Request;
use LWP::UserAgent;

my$host='http://localhost';
my$string="marcos";

#Lista de paginas en un array, así es fácil agregar más páginas
my@paginas=("legajo.php","legajos.php");

#Abrimos el archivo con la lista de archivos a leer
openmy$FILE,'<','lista_de_archivos.txt'ordie$!;
my@archivos=<$FILE>;
close$FILE;


# Abro el archivo que sera el reporte final
open(F,">> reporte.html");
print F "<html><head>\n";
print F "<meta http-equiv=Content-Type content='text/html;charset=iso-8859-1' />\n";
print F "<title>marcos archivos</title>\n";
print F "</head>\n";
print F "<body>\n";
print F " <table border='0' align=center width=650 cellpadding='0' cellspacing='0' bgcolor=#333333>\n";
print F "  <tr><td bgcolor=#6666ff><font color=#ffffff face=Verdana size=1>Informacion</font></td></tr>\n";
print F "  <tr><td><font color=#ffffff face=Verdana size=1><strong>Host:</strong> $host</font></td></tr>\n";
print F "  <tr><td><font color=#ffffff face=Verdana size=1><strong>String:</strong> $string</font></td></tr>\n";
print F "  <tr><td><font color=#ffffff face=Verdana size=1><strong>Reporte:</strong> reporte.html</font></td></tr>\n";



#Creamos nuestro objeto LWP
my$ua= LWP::UserAgent->new();
$ua->timeout(30);

#Iteramos en cada archivo
formy$archivo(@archivos){
chomp$archivo;

#Iteramos en cada pagina
formy$pagina(@paginas){

#Armamos el url
my$url=join"/",$host,$pagina,$archivo;

#Creamos un nuevo request
my$req= HTTP::Request->new(GET=>$url);

my$response=$ua->request($req);

if($response->is_success){
if($response->content=~/$string/mi){
#Cerramos el reporte 
print F "  <tr><td bgcolor=#6666ff><font color=#ffffff face=Verdana size=1>archivos:\</font></td></tr>\n";
print F "  <tr><td><font color=#ffffff face=Verdana size=1>$url\n</font></td></tr>\n";
print F "  </table></body></html>\n";
close(F);
}
}

}

}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Saludos

Foro - Perl en Español

Consulta sobre URL

Consulta sobre URL

Publicidad

¿Quién está conectado?