Re: bot ?

Mon cher professeur,

'use warnings' et 'use diagnostics' n'affichent rien !

Voici mon code

#!/usr/bin/perl

use WWW::Mechanize;

use strict;
use diagnostics;
use warnings;

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

$mech->get( "http://www.google.fr/search?num=100&hs=QTx&hl=fr&(...)" );

my @links = $mech->find_all_links(
tag => "a", text_regex => qr/u\-m\-p\.org/i );

print 'ok',"\n";

#print @links[0]->text();
# print $mech->content;

#$mech->get( @links[0]);
# print $mech->content;


for my $lien ( @links ) {
my $url = $lien->text();
print 'url: '.$url."\n";
}

J'essaie dans un premier temps de réussir à afficher le text du lien, mais il ne m'affiche rien, alors même que le content du html trouvé possède bien la regexp que je cherche..

Note : je profite de cet exercice hautement politique pour apprendre perl et cette librairie qui me serait utile pour des utilisations plus "nobles" ;-)

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