Perl parser un resulat
Résolu/Fermé
Bonjour,
Voila je recupere en perl des datas qui ont cette tete, et je souhaiterai pouvoir recuperer un morceau..celui qui se trouve apres le <id="ohlclast">, a savoir le nombre 1.402 (uniquement..)
mon texte :
<div id="betpopupcontainer"><table ...environ 300 caracteres.......<span id="ohlclast">1.4902</span></b></td></tr></table></div>
je vois vraiment pas trop comment m'y prendre.
Si quelqu'un pouvait m'aider merci !
Voila je recupere en perl des datas qui ont cette tete, et je souhaiterai pouvoir recuperer un morceau..celui qui se trouve apres le <id="ohlclast">, a savoir le nombre 1.402 (uniquement..)
mon texte :
<div id="betpopupcontainer"><table ...environ 300 caracteres.......<span id="ohlclast">1.4902</span></b></td></tr></table></div>
je vois vraiment pas trop comment m'y prendre.
Si quelqu'un pouvait m'aider merci !
A voir également:
- Perl parser un resulat
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- Msxml 4.0 sp3 parser - Forum Virus
- Perl split ✓ - Forum Perl
- Comment installer MSXML 4.0 besoin daide !!!! - Forum Logiciels
2 réponses
bon voila une reponse ..
Je doute que ce soit tres accademique lol , mais si ca peu aider..
Sur la base dun script a lami20
1 on enleve les balises <>
2 on efface tout ce qui est avant Last
my $essai = "<div id=\"betpopupcontainer\"><table ...environ 300 caracteres.......<span id=\"ohlclast\">1.4902<\/span><\/b><\/td><\/tr><\/table><\/div>";
print "affiche ma ligne $essai\n" ;
my @tab = $essai;
while(<DATA>){push @tab,$_ if /ohlclast/ ... /<\/span/}
grep { s/<.*?\/?>//g } @tab;
grep { s/.*Last : //g } @tab;
print "Mon resultat @tab\n";
Un autre probleme comment faire passer $result->content de ce script ci dessous (qui est en fait le debut du script dans ma variable $essai ?
my $request = new HTTP::Request(GET => $url);
my $result = $ua->request($request);
if ($result->is_success) {
print $result->content;
} else {
print "Erreur : " . $result->status_line;
Merci !
}
Je doute que ce soit tres accademique lol , mais si ca peu aider..
Sur la base dun script a lami20
1 on enleve les balises <>
2 on efface tout ce qui est avant Last
my $essai = "<div id=\"betpopupcontainer\"><table ...environ 300 caracteres.......<span id=\"ohlclast\">1.4902<\/span><\/b><\/td><\/tr><\/table><\/div>";
print "affiche ma ligne $essai\n" ;
my @tab = $essai;
while(<DATA>){push @tab,$_ if /ohlclast/ ... /<\/span/}
grep { s/<.*?\/?>//g } @tab;
grep { s/.*Last : //g } @tab;
print "Mon resultat @tab\n";
Un autre probleme comment faire passer $result->content de ce script ci dessous (qui est en fait le debut du script dans ma variable $essai ?
my $request = new HTTP::Request(GET => $url);
my $result = $ua->request($request);
if ($result->is_success) {
print $result->content;
} else {
print "Erreur : " . $result->status_line;
Merci !
}
