Voici mon premier script perl : vdm.pl
Il s’agit d’un script qui va aller récupérer une citation (pour le moment uniquement aléatoire) sur le site http://www.viedemerde.fr
N’hésitez pas à le commenter (améliorations, 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";