Foro - Perl en Español

por **seguridadenmimail** » 2012-08-10 10:53 @495

Estuve probando y obtengo el mismo resultado que antes, digamos ahora directamente que no me guarda nada en los archivos.

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
 
my $ua = LWP::UserAgent->new(
    agent => "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3",
);
 
while (my $host = <>) {                      # Vamos leyendo del archivo indicado como primer argumento
                                             # o desde la entrada estándar
    chomp $host;
    print "Bajando [$host]: ";
 
    my %seen;
 
    for my $i ( 0 .. 9 ) {
        print $i;
 
        my $url = "http://www.bing.com/search?q=ip:$host&go=&qs=n&sk=&sc=1&first=$i";
 
        my $req      = HTTP::Request->new( GET => $url );
        my $response = $ua->request($req);
        my $content  = $response->content();
 
        while ( $content =~ m{<cite>(.*?)(?:/|</cite>)}g ) {
            $seen{$1}++;
        }
    }
 
    open F, '>', $host;
    for my $class (keys %seen) {
        print F "$class\n";
    }
    close F;
 
    print "\n";
    sleep 3;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **seguridadenmimail** » 2012-08-10 13:02 @585

Perdón, pero no me está creando los archivos con su contenido.

por **explorer** » 2012-08-10 20:03 @877

Perdón, había colocado la grabación de los archivos fuera del bucle principal.

Ya está arreglado. Prueba a ver.

por **seguridadenmimail** » 2012-08-11 11:59 @541

Perfecto

Foro - Perl en Español

Expresión Regular para Bing

Re: Expresión Regular para Bing

Publicidad

Re: Expresión Regular para Bing

Re: Expresión Regular para Bing

Re: Expresión Regular para Bing

Re: Expresión Regular para Bing

¿Quién está conectado?