Discussion :

[darkvodka]

Bonjour à tous,

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

Code :

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

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 :

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

Un extrait de Bare.pm :

Code :

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

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.

[djibril]

Essaye plutôt ceci :

Code :

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

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

[darkvodka]

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

[djibril]

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.

[darkvodka]

Un petit bout de ref.xml :

Code :

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

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.