Parser

Parser - Perl - Programmation

Marsh Posté le 18-01-2005 à 21:40:53    

Bonjour a tous, Je suis totalement noobs en perl.
J'ai fais plein de recherche sur le net google cpan et autre perl.com... et je n'y arrive toujour pas. Donc en gros si ya une âme charitable pour m'aider merci d'avance. :D  
j'utilise un script perl pour karamba pour aller rechercher des information dans le code source d'une page html d'un site web météo, style il fait beau 40° et tou et tou.
Mon probleme n'est pas de les récupérer mais de les parser.
donc je recupere les infos de la cellule class="obsText" sous cette forme :
 
Pluie et neige Temp. ressentie 0°C
 
j'aimerais pouvoir discocier "Pluie et neige" (On peu dir ke cest une variable car des fois i fé bo et cho)
de "Temp. ressentie" "0°C" (Temp. ressentie est fixe pour ca part)
 
exemple code source html:
 
<TD colspan="3" align="center" CLASS="obsText">Pluie et neige<BR>
                                    Temp. ressentie&nbsp;0&deg;C</TD>  
 
exemple de la fin de mon script perl :
 

Citation :


my $page2 = $res2->as_string;
$page2 =~ s/\&deg\;/°/g;
$page2 =~ s/\&nbsp\;/ /g;
my $p = HTML::TokeParser->new(\$page2);
 
$initPosition = index ($page2, "<!-- Begin Main Content Here-->" );
 
while ( $token = $p->get_tag("td" ) ) {
     
    my $text = $p->get_trimmed_text("/td" );
    if ($token->[1]{class}=~/obsTempText/i) {
 $report = $report . "$text\n";
    }
    if ($token->[1]{class}=~/^obsText$/i) {
 $report2 = $report2 . "$text\n";
    }
}
 
print $textCity .  "\n";
print "pics/" . $nameIconFile . "\n";
print $report;
print $report2;


 
Merci pour votre aide.

Reply

Marsh Posté le 18-01-2005 à 21:40:53   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed