Re: bot ?

#!/usr/bin/perl

use WWW::Mechanize;

use strict;
use diagnostics;
use warnings;

my @url_list =
(
'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)

'http://www.google.fr/search?num=100&hl=fr&client=fir(...)
);

my $mech = WWW::Mechanize->new( autocheck => 1 );

for (my $i=0 ; $i< 512 ; $i++)
{


foreach my $url_google (@url_list) {


$mech->get( $url_google );
sleep (rand(32));
my $htmltext = $mech->content;

if ( $htmltext =~ /www\.u\-m\-p\.org\/site\/soutien_projet_2007/ )
{
my @txt = grep (/u\-m\-p\.org/,split(/\s|href=/,$htmltext));
foreach my $t (@txt){
if ($t =~ /soutien_projet_2007/ ) {
# On l'a trouvé !!
my $good_url = 'http://www.google.fr'.$t;
print $good_url,"\n";
$mech->get($good_url);
if ($mech->content =~ /Mouvement\sPopulaire/) { # on est bien tombé sur la bonne page
print '1 Hit effectué',"\n";
}
}

}
}
}
}

« Il n’y a pas de choix démocratiques contre les Traités européens » - Jean-Claude Junker