Automatisador de busqueda de google en perl

Bueno este script lo cree cuando comense a programar con sockets en perl, le agradesco a la comunidad undersecurity que me ayudo mucho y en especial a mi amigo s[e]c.

Modo de uso

perl script.pl noticias.php 10

#Autor:   Yoyahack<br />


 <br />


use LWP::UserAgent;<br />


use HTTP::Request;<br />


 <br />


print "Modo de uso:\n";<br />


print "Perl name.pl  \n";<br />


print "perl name.pl inurl:noticias.php?id=1 50\n";<br />


 <br />


my $ua = new LWP::UserAgent;<br />


$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");<br />


 <br />


for($i=1;$i<$ARGV[1];$i++){<br />


    my $busqueda = new HTTP::Request GET =>"http://www.google.es/search?hl=es&q=.$ARGV[0].&start=$i&sa=N";<br />


    my $resultado = $ua->request($busqueda);<br />


    $ua->timeout(7);<br />


    my $result = $resultado->content;<br />


 <br />


    while ($result =~ m/
(.*?)<\/a>/g) {<br />


        my ($enlace) = ($1);<br />


        print "$enlace\n";<br />


}<br />


}<br />


#Agradesco a la comunidad undersecurity que me ayudo mucho en la elavoracion del code y a s[e]c que me ayudo con algunos #errorres

12:54