Magazine Internet

Premier script perl : vdm.pl

Publié le 01 octobre 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 :

view source print? 01.#!c:\Perl\bin\perl.exe 02. 03.use LWP::Simple; 04. 05.$page = get("http://api.viedemerde.fr/1.2/view/random"); 06. 07.if ($page =~ m//) { 08.$id = $1; 09.} 10.if ($page =~ m/(.*)< \/auteur>/) 11.{ 12.$auteur = $1; 13.} 14. 15.if ($page =~ m/(.*)< \/date>/) { 16.$date = $1; 17.} 18. 19.if ($page =~ m/(.*)< \/texte>/) 20.{ 21.$texte = $1; 22.$texte =~ s/"/@tab/g for @tab; 23. 24.} 25. 26.print " :: Citation VDM Aléatoire ::\n"; 27.print "$auteur a une vie de merde : \n"; 28.print "$texte\n"; 29.print "http://viedemerde.fr/$id\n";

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