Aide:FAQ/programme Perl

Une page de Wikipédia, l'encyclopédie libre.
Aller à : navigation, rechercher

Q. Y a-t-il, ou y aura-t-il un module CPAN pour standardiser les recherches dans Wikipedia?'

R. Question intéressante. Néanmoins, un tel module n'est peut-être pas nécessaire. Si vous recherchez une rubrique précise, le code Perl suivant devrait convenir. Il retrouve la page et affiche son contenu (la valeur à donner à la variable $URL devrait être évidente...). Une fois la page trouvée, utilisez les regular expressions de Perl pour retrouver les liens wiki. – Malcom Farmer.

#!/usr/bin/perl
use LWP;
$browser LWP::UserAgent->new();
($url) "http://www.wikipedia.com/wiki.cgi?Wikipedia_FAQ";
$webdoc$browser->request(HTTP::Request->new(GET> $url));
if ($webdoc->is_success) #...then it's loaded the page OK
{
   print $webdoc->title, "\n\n"; # page title
   print $webdoc->content, "\n\n"; # page text
}