Bien, ahora tengo que ir bajando el código fuente de cada una de esas urls almacenadas en el txt, el problema es que son muchas y el módulo LWP descarga una url de cada vez, lo que pretendo es que se descargue por lo menos 10 de cada vez, sino el proceso es eterno.
Este es el código que tengo escrito y funciona pero va descargando url a url, a ver si es posible arreglar eso. Estuve buscando en CPAN y en Google, pero no encontré nada al respecto, a ver si tenéis alguna idea o quizás no se pueda, hacer no se...
Using perl Syntax Highlighting
open (URL_REVIEWS,"url_reviews.txt");
my @reviews_all = <URL_REVIEWS>;
print "Extraidas ", $#reviews_all +1 , " urls de reviews para lechear\n";
foreach my $review_en_cuestion (@reviews_all) {
my $req4 = HTTP::Request->new(GET => $review_en_cuestion);
my $response4 = $ua->request($req4);
my $content4 = $response4->content();
open (TODO_CODIGO_REVIEWS,">>todo_codigo_reviews.txt");
print TODO_CODIGO_REVIEWS $content4 , "\n";
close(TODO_CODIGO_REVIEWS);
print "Descargando " , $review_en_cuestion , "\n";
}
my @reviews_all = <URL_REVIEWS>;
print "Extraidas ", $#reviews_all +1 , " urls de reviews para lechear\n";
foreach my $review_en_cuestion (@reviews_all) {
my $req4 = HTTP::Request->new(GET => $review_en_cuestion);
my $response4 = $ua->request($req4);
my $content4 = $response4->content();
open (TODO_CODIGO_REVIEWS,">>todo_codigo_reviews.txt");
print TODO_CODIGO_REVIEWS $content4 , "\n";
close(TODO_CODIGO_REVIEWS);
print "Descargando " , $review_en_cuestion , "\n";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
)
