Premier script perl : vdm.pl

Voici mon pre­mier script perl : vdm.pl

Il s’agit d’un script qui va aller récu­pé­rer une cita­tion (pour le moment uni­que­ment aléa­toire) sur le site http://www.vie­de­merde.fr

N’hési­tez pas à le com­men­ter (amé­lio­ra­tions, erreurs…)

Voici le code du script :

#!c:\Perl\bin\perl.exe

use LWP::Simple;

$page = get("http://api.viedemerde.fr/1.2/view/random");

if ($page =~ m//) {
$id = $1;
}
if ($page =~ m/(.*)< \/auteur>/)
{
$auteur = $1;
}

if ($page =~ m/(.*)< \/date>/) {
$date = $1;
}

if ($page =~ m/(.*)< \/texte>/)
{
$texte = $1;
$texte =~ s/"/@tab/g for @tab;

}

print " :: Citation VDM Aléatoire ::\n";
print "$auteur a une vie de merde : \n";
print "$texte\n";
print "http://viedemerde.fr/$id\n";

Pour uti­li­ser le script :

$ perl vdm.pl

Vous pouvez télécharger le script à l’adresse suivante : [download id="1"]