por explorer » 2012-08-10 11:25 @517
Prueba con esto:
Using perl Syntax Highlighting
#!/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.005 segundos, usando
GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES