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