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";
- }
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
