Discussion :

[McCrazy]

Bonjour ,

J'ai installé le module libxml (avec l'interface graphique ppm)pour perl pour parser un fichier xml .
Le problème est que quand je compile mon fichier perl ,

j'ai des erreurs du genre

Can't locate XML/LibXML/Common.pm in @INC (@INC contains C:/perl/site/lib C:/perl/lib.) at C:Perl/site/lib/XML/LibXML.pm line 12
BEGIN failed--compilation aborted at C:Perl/site/lib/XML/LibXML.pm line 12
compilation failed in required at test4.pl lin2 4
BEGIN failed --compilation aborted at test4.pl line 4

(juste préciser que line 4 est la ligne ou j'importe XML::LibXML)

Effectivement quand je vérifie , il n'ya pas de fichie Common.pm dans le repertoire LibXML.
alors ma question est , est ce que c'est moi qui doit installer ce fichier ? si oui oú est-ce que je le prends ?
sinon que dois-je faire pour que le code compile ???

merci...

[djibril]

comment l'avez vous installé et peux ton voir votre code perl ?

[McCrazy]

Slt ,

Comme je l'ai dit j'ai utilisé l'interface graphique ppm ,
d'ailleurs j'ai suivi les instructions que tu as mis dans ce tuto http://djibril.developpez.com/tutori...ation-modules/

malheureusement , ça ne marche pas ! (à cause du message d'erreur montré tout à lheure : il ne trouve pas le fichier Common.pm)

et pour le code perl , je voulais faire un essaie avec un exemple que j'ai prié dans l'un de tes tutoriel (j'ai juste rajouté 2..3 ..trucs ) , mais je pense pas que ce soit le code perl le probleme

Comme je disait , la ligne 4 , correspond à use XML::LibXML

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/usr/bin/perl 
use strict;
use warnings;
use XML::LibXML;
 
# Sous-routine permettant d'entrée le fichier en CLI
sub obtient_ligne{
  #demande , lit , "chompe" et renvoie une ligne d'entrée 
  print $_[0];
  chomp(my $ligne = <STDIN>);
  $ligne ;
}
 
my $fichierXML = &obtient_ligne ("Quel est votre fichier XML ?");
  open IN ,$fichierXML 
  or die "Impossible d'ouvrir '$fichierXML ' en entrée : $!";
 
my $fichierFW = &obtient_ligne ("Quel est votre fichier FW ?");
  open OUT, "+>$fichierFW"   
  or die "Impossible d'ouvrir '$fichierFW ' en sortie :  ";  
 
my $parser = XML::LibXML->new();
 
# Creation du fichier resultat
my $FichierResulat = 'resultat.txt';
open( my $FhResultat, '>', $FichierResulat )
  or die("Impossible d'ouvrir le fichier $FichierResulat\n$!");
 
 
#Activation validation DTD du fichier XML avant le parsing
$parser  ->validation(1);
my $tree = $parser  -> parse_file($fichierXML);
 
#Racine du document XML 
my $root = $tree->getDocumentElement;
 
#Balise ObjectGroup
 
my object_group = root -> getElementsByTagName ('ObjectGroup');
 
foreach my $child_Object_group (@ObjectGroup){
 
  print {FhResulat } "ObjectGroup:";
    $childid->getElementsByTagName('ObjectGroup')->[0]->getFirstChild->getData,"",
    $childid->getAttribute('id'),
    $childid->getAttribute('name'), "\n";
}
  close($FhResultat);