Tengo el siguiente
script el cual verifica si encuentra en una web una palabra y si ésta se encuentra corta la búsqueda.
Mi idea ahora es que si la encuentra pare de buscarla y salte a una nueva función.
Para cortar uso "last". Mi idea es sacarlo y poner ahí el corte de la búsqueda y el salto a la nueva función.
Using perl Syntax Highlighting
BEGIN {
eval "use HTTP::Request";
if ( $@ ) {
warn "Error to load module: HTTP::Request\n"
. "Install Module:\n"
. "\t\tcpan\n"
. "\t\tcpan> install HTTP::Request\n";
exit ();
}
}
use HTTP::Request;
use LWP::UserAgent;
$host= "dominio.com";
chomp $host;
open $FILE, '<', "acceso.txt" or die $!;
@archivos = <$FILE>;
close $FILE;
$string= 'adm';
chomp $string;
$ua = LWP::UserAgent->new();
$ua->timeout(30);
for $archivo(@archivos) {
chomp $archivo;
$url = $host.$archivo;
$req = HTTP::Request->new(GET=>$url);
$response = $ua->request($req);
if ($response->is_success) {
if ( $response->content =~ /$string/ ) {
print "$url\n";
}
}
}
Dom Feb 07, 2010 8:04 pm
