#!/usr/bin/perl
use HTML::TreeBuilder;
use WWW::Mechanize;
my $m = WWW::Mechanize->new;
# récupération des informations
$m->agent_alias("Linux Mozilla");
$m->add_header( Cookie => 'BrowserDetect=passed' );
$m->get('http://editorial.tele2internet.fr/?page=ETAT_RESEAU&popup=1');
exit unless $m->success;
# sélection de la sortie
if (@ARGV) {
open STDOUT, ">", $ARGV[0]
or warn "Impossible de rediriger STDOUT sur $ARGV[0]: $!\n";
}
# affichage des informations
my $tree = HTML::TreeBuilder->new_from_content( $m->content );
print
map { s/\n*\x95/\n\n*/g; $_ }
map { $_->as_trimmed_text . "\n" }
$tree->look_down( _tag => 'span', class => qr/apptext/ );