URL: https://linuxfr.org/users/teddyber/journaux/script-lcl
Title: Script LCL
Authors: teddyber
Date: 2006年08月02日T11:08:46+02:00
Tags: 
Score: 0
Bonjour journal ! 
 
je t'écris cette (première) missive afin de te montrer mon premier script à moi que j'ai fait pour télécharger mes opérations de compte LCL au format CSV sans 
1) devoir cliquer ou taper mon mdp car je suis fainéant, 
2) devoir payer pour l'option téléchargement car je suis radin. 
 
Ce script est donc mon premier script Perl à moi que j'ai fait, il est très crade car : 
1) je ne comprends pas tout à Perl mais ça m'a l'air affreusement crade à la base comme langage (des liens vers de la bonne doc avec de beaux exemples ?), 
2) je parse du HTML d'une façon dégueulasse mais c'est parce que ça marche 
 
J'avais fait ce mm script en PHP avant car je maîtrise un peu plus et ça marche aussi bien mais je me suis dit que tout le monde a pas PHP installé et que Perl doit être plus courant. si ça intéresse du monde, j'ai un script PHP qui récupère la synthèse des comptes de la Caisse d'épargne (et même un qui télécharge le csv d'un compte mais alors celui-là j'ose à peine en parler tellement il est sale, j'en ai encore mal aux yeux).
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/users/teddyber/journaux/script-lcl.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/users/teddyber/journaux/script-lcl.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>