Magazine High tech

Premier script perl : vdm.pl

Publié le 17 mars 2009 par Pingax

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"]


Vous pourriez être intéressé par :

Retour à La Une de Logo Paperblog

Ces articles peuvent vous intéresser :

A propos de l’auteur


Pingax Voir son profil
Voir son blog

l'auteur n'a pas encore renseigné son compte l'auteur n'a pas encore renseigné son compte l'auteur n'a pas encore renseigné son compte