Problème avec la librairie XML::Bare

Bonjour à tous,

j'ai un problème avec la librairie XML::Bare de Perl (dans sa dernière version).

Code:

---

1 2 3 4 5 6 7 8 9 10

my $xml_file = new XML::Bare( file => "ref/ref.xml" ) or die "Impossible d'ouvrir le fichier ref/ref.xml"; my $root = $xml_file->parse();   $xml_file->find_by_perl($root->{ISMP}->{Product}, "-ProductName =~ /ftp/i");   return $error; }

---

Mais j'ai cette erreur :

Citation:

---

Not a array reference at /.../.../.../Bare.pm line 410.

---

Un extrait de Bare.pm :

Code:

---

1 2 3 4 5 6 7 8

sub find_by_perl { my $arr = shift; my $cond = shift; $cond =~ s/-([a-z]+)/\$ob->\{'$1'\}->\{'value'\}/g; my @res; foreach my $ob ( @$arr ) { push( @res, $ob ) if( eval( $cond ) ); } return \@res; }

---

La ligne 410 correspond à celle du foreach.

Je ne comprend pas pourquoi j'ai cette erreur. La fonction find_by_perl est définie dans la doc :
http://search.cpan.org/~codechild/XM...dule_Functions


Merci.

Essaye plutôt ceci :

Code:

---

1 2 3

my $test = $root->{ISMP}->{Product} . "-ProductName =~ /ftp/i"; $xml_file->find_by_perl($test);

---

Merci de ta réponse djibril. Malheureusement cela ne fonctionne pas, j'ai toujours la même erreur.

Peux tu nous montrer le fichier ref.xml ?
Et quel est le but de ton programme ? Car si tu souhaites analyser un fichier XML, je ne te recommande pas ce module. Lis cette article qui t'aidera.

Un petit bout de ref.xml :

Code:

---

1 2 3 4 5 6 7

<ISMP> <Product> <ProductName>basesystem</ProductName> <ProductVersion>8.0-5.1.1</ProductVersion> <ProductInstall>2010-03-27 07:14:37</ProductInstall> </Product> </ISMP>

---

J'avais déjà vu la page sur les différentes librairies XML et j'avais choisis XML::Bare justement pour la fonction find_by_perl, qui me permet (normalement) de parcourir facilement l'arbre XML et faire des expressions régulières sur la valeur d'un noeud. Je n'ai pas vu que l'on pouvait le faire avec les 2 librairies conseillées dans ton lien.