Forum

#! /usr/bin/perl
 
# On déclare les "USE" pour faire les requêtes HTTP sur le site
use  HTTP::Request::Common qw(POST);
use LWP::UserAgent;
 
# On initialise l'agent .
$ua = LWP::UserAgent->new;
 
my $req = POST 'http://www.calendrier-lunaire.net', [];
 
my @res = split /n/, $ua->request ($req)->as_string;
 
foreach $ligne (@res) {
 
      next if (!($ligne =~ /<h2><span style=/));
 
      $ligne =~ s/<h2><span style="color:#4b739d;">//g;
      $ligne =~ s/</span>//g;
      $ligne =~ s/</h2>//g;
 
      $LIGNE = uc $ligne;
 
      print "$LIGNE n";
};
 
 
 
 
foreach $ligne (@res) {
 
     next if (!($ligne =~ /<li><b>/));
 
     $ligne =~ s/<li><b>//g;
     $ligne =~ s/</b>//g;
     $ligne =~ s/<span style="color:white;">//g;
     $ligne =~ s/</span></li>//g;
     $ligne =~ s/</span>//g;
     $ligne =~ s/<b>//g;
     $ligne =~ s/</li>//g;
 
     $ligne =~ s/&egrave;/è/g;
     $ligne =~ s/&agrave;/à/g;
     $ligne =~ s/&eacute;/é/g;
 
     print "$ligne n";
};