[Linux-bruxelles] Consommation Scarlet

[Sébastien Adam]

>  Bon, c'est loin d'être top et à 1000 lieues de ce que j'imagine
>  mais il faut bien commencer quelque part...
>
>  Espérons que ça progresse, si quelqu'un a des idées/suggestions,
>  elles sont les bienvenues.

Avec quelques petites modifs, tu peux même avoir tout le tableau de la
consomation:
-------------------------
#!/usr/bin/perl -w

use WWW::Mechanize;

my $username = 'pin02564';
my $password = '389BwQBK';

my $m = WWW::Mechanize->new();
$m->get('http://customercare.scarlet.be/logon.do?language=fr');

$m->field('username', $username);
$m->field('password', $password);

$m->submit();

$m->follow_link(text => 'Consommation');

my $c = $m->content;

for ($c)
  {
  s|.*<table border="0" class="volume" cellspacing="5">(.*?)</table>.*|$1|sgm;
  s|^\s+||;
  s|\s+$||;
  s|>[\s\n\r]+<|><|smg;
  s|<tr>||smg;
  s|</tr>|\n|smg;
  s|<th class="left">||smg;
  s|<td class="digit">||smg;
  s|</th><th>|\t|smg;
  s|</t[dh]>\n|\n|smg;
  s|</td>|\t|smg;
  s|</th><th class="digit">|\t|smg;
  }

print($c);
---------------------------

J'espère que ça t'aide un peu...

A bientôt :-)