Question en rapport avec le module HTML::TokeParser

En fait j'ai remarqué que pour:

Code:

1
2
3
4
5
6
<span>
   <a>tata</a>
   <a>tete</a>
   <a>titi</a>
   <a>toto</a>
</span>

c'était en fait

Code:

1
2
3
4
5
6
<span>
   <a><span class=annee>tata</span></a>
   <a><span class=annee>tete</span></a>
   <a><span class=annee>titi</span></a>
   <a><span class=annee>toto</span></a>
</span>

Et pas ces span quand il n'y a pas le text entre les balises <a>.
bon voilà ce que j'ai fait mais ça marche pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
elsif ($type eq 'S' and $tok_arbre->[1] eq 'a' and $in_span and $tok_arbre->[2] {target} eq "titre" and $tok_arbre->[2] {href}=~ m/^HTML/ )  {
            $in_a++;
            my $tok_span = $p_table->get_tag("span");
            if ($tok_span->[1] {class} eq "annee") {
                $in_span_an ++
            }
 
            else {
                $cpt_div_class++;
                $text = qq(<div class="niv$cpt_div_class">
                <a target="$cible" href="$url" > Tableau HTML</a>
                <br>);
 
            }
            }
[...]
 elsif($type eq 'T' and $in_span_an) {
            $text=$p_table->get_trimmed_text("/span");
            print $test_error "\n"."text: ".$text;
            $text= qq(<div class="niv$cpt_div_class">
            <a target="$cible" href="$url"  > $text</a>
             <br>
             </div>);
 
        }

Ca rentre jamais dans $in_span_an.
Je suis preneur de n'importe quelle idée. :?