Discussion :

[stansoad0108]

Bonjour à tous,

Juste un petit problème dans le parsage d'une page web (html)
Voici mes balises et le texte que je voudrais récupérer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 <td class="relatedObjCol">
 
 
 
 
<a href="/do/serve?objId=PA446155&objCls=Disease"
>Precursor Cell Lymphoblastic Leukemia-Lymphoma</a></td>

Je voudrais que mon programme réconnaisse ces 2 balises pour récupérer le texte : Precursor Cell Lymphoblastic Leukemia-Lymphoma

Je ne vois pas comment faire avec des boucles if...car rien ne s'affiche
Une partie du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
if ($tag =~ /^td$/ 
				and defined $attr->{class}
				and $attr->{class} =~ /^relatedObjCol$/){
					if ($tag =~ /^a$/ 
						and defined $attr->{href}  
 						and $attr->{href} =~ /^\/do\/serve\?objId=PA[0-9]+&objCls=Disease$/){    	
 							$flag = 4;
					}
			}

Merci pour vos commentaires

[Jedai]

Je pense que tu es en train d'utiliser HTML::Parser, non ?
Dans ce cas ce que tu fais ne va pas marcher, le callback n'est appelé qu'une seule fois pas ouverture de balise.
Ce que tu dois faire c'est quand tu rentres dans un < td > de la bonne classe modifier l'état d'une variable lexicale (déclarée avant le callback) et quand tu en sors la remettre à une valeur fausse.
Quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my $in_good_td = 0;
 
sub start_callback {
  if ($tag =~ /^td$/ 
      and defined $attr->{class}
      and $attr->{class} =~ /^relatedObjCol$/){
    $in_good_td++;
  }
  elsif ($in_good_td 
         and $tag =~ /^a$/ 
         and defined $attr->{href}  
         and $attr->{href} =~ /^\/do\/serve\?objId=PA[0-9]+&objCls=Disease$/){    	
    $flag = 4;
  }
}

Et n'oublie pas de décrémenter $in_good_td dans le callback pour end.

--
Jedaï

[stansoad0108]

Merci beaucoup Jedai,

Ton raisonnement fonctionne très bien dans mon programme. De plus j'ai du créer 3 variables, car j'avais trois fois ce même problème

(Je les ai appelées :
$in_good_td_gene ;
$in_good_td_disease;
$in_good_td_drug;
)

Cela fait donc 3 blocs if...elsif dans ma subroutine de départ, et j'ai bien décrémenté ces variables dans la subroutine de fin.

Encore Merci
++