Lotto und Perl
Wednesday, March 23rd, 2005Ich habe grade eben ein Skript fertiggestellt, das am Mittwoch und Samstag für mich herausfindet, ob wir im Lotto gewonnen haben. In jedem Fall schickt es mir dann automatisch eine Email, die heute zum Beispiel (leider) so aussieht:
Resultats loto pour mercredi 23 03 2005
-------------------------------------------------------------------------------
Mes numeros : 4 6 15 17 28 31 13 16 25 30 39 48
-------------------------------------------------------------------------------
Tirage 1 : 17 34 38 40 45 49 47 17
Tirage 2 : 5 8 9 27 35 42 45
Ich finde es nämlich ausgesprochen anstrengend, die beiden Ziehungsergebnisse mit meinen beiden Zahlengruppen zu vergleichen.
Das Problem war bisher bloss, dass die französische Lotto Website die Ergebnisse als Flash anzeigt. Die Analyse der Website ergab dann aber schnell, dass die Zahlen als Parameter dem .swf file zugewiesen werden, nämlich so:
<param name="movie" value="resultats.swf?tirage1=34,40,49,38,45,17,47
&tirage1tri=17,34,38,40,45,49,47&tirage2=35,27,42,9,8,5,45
&tirage2tri=5,8,9,27,35,42,45&date=mercredi&date2=23 03 2005″>
Deswegen funktioniert dieses Skript nur mit der französischen Lotto-Site, und falls die Betreiber die Seite umbauen, dann funktioniert mein kleines Skript auch nicht mehr. Das dürfte ich aber schnell mitkriegen, da die Emails ja dann keine Ergebnisse mehr liefern.
Die Seite wird dann mit wget heruntergeladen und dann dem Perlskript übergeben:
wget -q -O - http://www.loto.fr/les_resultats/derniers_resultats/result.php | /home/jakob/loto.pl
Und das ganze wird dann ein cronjob:
9 23 * * 3,6 /usr/bin/wget -q -O - http://www.loto.fr/les_resultats/derniers_resultats/result.php | /home/jakob/loto.pl
Als nächste Aufgaben wäre es schön, wenn es eine Statistik gäbe, wo ich nachsehen kann, wann ich das letzte Mal gewonnen habe. Auch das ich darauf aufmerksam gemacht werde, wenn ich ein neues Lottoticket kaufen muss, wäre nett. Und natürlich, wenn ich auch noch die Gewinne herausfinden könnte …


