exercice 7: recherche d'infos sur Wikipedia

# exercice 7
use strict;
use warnings;

use LWP::Simple;

my $url_site = 'http://wapedia.mobi/fr/';

my $titre = shift;

if (!defined $titre) {
  die <<END
usage: perl $0 titre_wikipedia

  Affiche des infos sur un sujet donné
  trouvées sur le site:
  $url_site

Exemples:
  perl $0 Renault
  perl $0 "Nicolas Sarkozy"
END
}

my $url = $url_site . $titre;

my $content = get $url;

die <<END unless $content;
adresse inconnue: $url
END

$content =~ m{<p.*?>(.+?)</p>}msig; # premier paragraphe
my $para = $1;
if ($para) {
  while ($content =~ m{<p.*?>(.+?)</p>}msig) {
    $para .= $1;
  }
}

if ($para) {
  # nettoyage
  $para =~ s/<.*?>//gms; # on enleve les balises HTML
  $para =~ s/\n/ /gms; # on met tout sur une ligne
  $para =~ s/&#39;/'/gms; # on remplace les quotes bizarres

  print <<END;
Trouvé les infos suivantes sur "$titre":

$para

Source: $url
END
} else {
  die <<END;
pas trouvé d'infos sur: "$titre"
ici: $url
END
}