passer un tableau prédéfini à new HTML::TableExtract()
Bonjour,
Je traite d'une maniere dynamique les tables contenu ds une page HTML.
Alors @headers contient les entetes des colones que je veux récuperer, $depth et $conut sont aussi dynamique.
Code:
1
2
3
4
5
6
7
8
9
10
11
|
my $te = new HTML::TableExtract(
headers => [@headers], depth => $depth, count => $count
);
$te->parse($mech->content);
foreach ( $te->rows ) {
my (@Headers)= @$_;
foreach my $h(@Headers){
print "HEADER:",$h,"\n";
}
} |
le probleme c'est que le programme me rend l'erreur suivant:
Code:
Can't call method "rows" on an undefined value at /usr/lib/perl5/site_perl/5.8.3/HTML/TableExtract.pm
pour comprendre mieux le probleme j'ai recuperé les valeurs contenue ds @headers et j'ai essaié de les passer statiquement.
Code:
1
2
3
4
|
my $te = new HTML::TableExtract(
headers => [Type,Number_Of_Sales], depth => $depth, count => $count
); |
Donc l'éxecution se déroule trés bien.
Alors comment je peux faire pour éviter se probleme.
merci d'avance.
