1. <tr><td><a href=

 1. #!/usr/bin/perl -w
 2. 
 3. use strict;
 4. use LWP::Simple;
 5. 
 6. # 1 - on recupere le contenu de la page dans une chaine
 7. # fastoche, non, Woof ?
 8. my $strHtmlPage=get("http://www.frimousse.org/dslam?vue=tout");
 9. 
10. # 2 - on convertit la page => liste (tableau) de lignes
11. # (pour faire un traitement ligne par ligne) => "split" sur fin de ligne
12. my @listeHtmlPage=split('\\n',$strHtmlPage);
13. 
14. # 3 - traitement ligne par ligne
15. foreach my $ligne (@listeHtmlPage){
16. 
17.         # on vire le caractere de fin de ligne
18.         chomp($ligne);
19. 
20.         # teste si c'est une ligne avec des données
21.         # non ? ligne suivante...
22.         next if ($ligne !~ m/^<tr><td><a href=/);
23. 
24.         # petit affichage de la ligne, pour permettre de verifier le traitement
25.         # (a supprimer/commenter pour script definitif..)
26.         printf("%s\\n",$ligne);
27. 
28.         # chaque cellule du tableau HTML (balise <td ...>=> donnée
29.         # => on change pour utiliser un separateur plus facile a traiter ":"
30.         # on remarque le modificateur "non avide" (?) apres le .*
31.         $ligne =~ s/\s*<td.*?>/:/g;
32. 
33.         # on vire tous les autres tags HTML de la ligne
34.         # egalement le modificateur "non avide" (?) apres le .*
35.         $ligne =~ s/<.*?>//g;
36. 
37.         # encore quelques "espaces qui trainent... on les vire aussi
38.         $ligne =~ s/\s*//g;
39. 
40.         # il ne reste plus qu'une ligne avec des données separées par ":"
41.         printf("%s\n",$ligne);
42. 
43.         # on "split" enfin pour recuperer chaque données dans une variable
44.         # (attention, il y a un ":" au debut de ligne => variable $null)
45. my ($null,$dslam,$repart,$ip,$groupe,$pool,$etat1,$etat2,$etat3,$etat4,$etat5)
=split(':',$ligne);
46. 
47.         # encore un petit affichage pour verification...
48.         printf("DSLAM:\t%s\n",$dslam);
49.         printf("Repart:\t%s\n",$repart);
50.         printf("IP:\t%s\n",$ip);
51.         printf("Groupe:\t%s\n",$groupe);
52.         printf("Pool:\t%s\n",$pool);
53.         printf("Etat 1:\t%s\n",$etat1);
54.         printf("Etat 2:\t%s\n",$etat2);
55.         printf("Etat 3:\t%s\n",$etat3);
56. printf("Etat 4:\t%s\n",$etat4);
57. printf("Etat 5:\t%s\n",$etat5);
58. 
59. }
60.