Bonjour à tous,
 
j'ai un fichier xml à parti du quel je vais extraire quelques champs:  
 
j'ai fait le code suivant:

use strict;
use warnings;
use XML::Simple;
my $parser = XML::Simple->new( KeepRoot => 1 );
 
 
             
# Création du fichier résultat
my $FichierResulat = '/result';
 
 
open( my $FhResultat, '>', $FichierResulat )or die("Impossible d'ouvrir le fichier $FichierResulat\n$!" );
 
 
my $doc = $parser->XMLin('/essai.xml');
      
 
foreach my $words ( @{ $doc->{dict}->{word} } ) {
my $word=  $words->{value}; 
 
        $word =~ s/^\s+|\s+$//g;
if($word eq "استمارة" )
{
print {$FhResultat} "$word"; 
print "ok";
}
else
{print "not ok";}
print {$FhResultat} "$word:\n"; 
 
foreach my $senses (@{ $words->{'sense'} }) {
my $gloss= $senses->{def};
print {$FhResultat} "$gloss\n"; 
}
}
 
}

 
voici un extrait de mon fichier xml :
<dict>
<word value="استمارة">
<sense>
<ids>1</ids>
<def>استمارة ورقة تتضمّن بيانات معيّنة خاصَّة بمن يقوم بملئها وتقدَّم عند الالتحاق بمدرسة أو وظيفة أو أي أغراض أخرى ملأ استمارة الشهادة الثانويَّة استمارة قبول استمارة خاصّة تقدَّم للالتحاق بمعهد </def>
</sense>
<sense>
<ids>2</ids>
<def>استمارة ورقة تتضمّن بيانات معيّنة خاصَّة بمن يقوم بملئها وتقدَّم عند الالتحاق بمدرسة أو وظيفة أو أي أغراض أخرى ملأ استمارة الشهادة الثانويَّة استمارة قبول استمارة خاصّة تقدَّم للالتحاق بمعهد </def>
</sense>
</word>
<word value="استوديو">
<sense>
<ids>1</ids>
<def> أُسْتُوديو إسْتُوديو ستوديو مكتب الرسَّام والنحّات أو المصوّر الفوتوغرافيّ أخذت صوري من الاستوديو </def>
</sense>
<sense>
<ids>2</ids>
<def> مكتب لدراسة فنّ من الفنون كالرقص والغناء والتمثيل تدرّب على الغناء في الاستوديو </def>
</sense>
</word>        
</dict>
 
 
J'ai rencontré le problème suivant:  
 

• pourquoi si mon fichier xml contient seulement un seul élement dans <word> il m'affiche l'erreur suivante : Not an ARRAY reference at /home/lenovo

 
Merci d'avance..

Parce que XML::Simple, quand il trouve parse un element, s'il a plusieurs fils, il fabrique un array (de hashes) mais s'il y a qu'un fils, il mets directement le hash.
 
Moi, je n'utilise pas XML::Simple, j'utilise XML::LibXML, qui est certes un peu plus compliqué, mais bien plus utilisable.
Un exemple pour t'inspirer, a adapter a tes besoins:

#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
 
use XML::LibXML;
 
my $dom = XML::LibXML->load_xml(location => 'data-in.xml');
my $FichierResulat = 'data-out.txt';
open( my $FhResultat, '>:utf8', $FichierResulat );
 
foreach my $entry ($dom->findnodes('/dict/word')) {
    my $word = $entry->getAttribute('value');
    $word =~ s/^\s+|\s+$//g;
    print $FhResultat "$word";
    if ($word eq "استمارة" ) { 
    print $FhResultat " ok\n";
    }
    else {
    print $FhResultat " not ok\n";
    }
    
    foreach my $gloss ($entry->findnodes('sense/def/text()')) {
    print $FhResultat $gloss->data, "\n"; 
    }
}
close $FhResultat;

 
 
A+,

Re-Bonjour,
Je vais voir donc avec libXml

Noter aussi que ce genre de manip sur du xml pourrait se faire avec une feuille de style xslt:

<?xml version="1.0" encoding="UTF-8"?> 
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
  xmlns:xs="http://www.w3.org/2001/XMLSchema" 
  exclude-result-prefixes="xs" 
  version="2.0"> 
   
  <xsl:output method="text"/> 
   
  <xsl:template match="/"> 
    <xsl:for-each select="dict/word"> 
      <xsl:variable name="word" select="@value" as="xs:string"/> 
      <xsl:value-of select="normalize-space($word)"/> 
      <xsl:value-of select="if ($word = 'استمارة') then ' not Ok' else ' Ok'"/> 
      <xsl:text>&#xa;</xsl:text> <!-- new line --> 
      <xsl:for-each select="sense/def"> 
        <xsl:value-of select="."/> 
        <xsl:text>&#xa;</xsl:text> 
      </xsl:for-each> 
    </xsl:for-each> 
  </xsl:template> 
   
</xsl:stylesheet>

 
A+,

Bonsoir gilou,  
alors comment par exemple je peux extraire la définition ayant un sens particulier , j'ai fait ça :  

foreach my $ids ($entry->findnodes('sense/ids/text()')) {
   # print $FhResultat $gloss->data, "\n"; 
 
my $ind= $ids->data;
$ind =~ s/^\s+|\s+$//g;
$sens_indice =~ s/^\s+|\s+$//g;
 
if($ind eq $sens_indice )
{#comment savoir la def convenable à ids= $sense_indice print $FhResultat $gloss->data, "\n";}
    }
    } 
}

par exemple dans cet extrait je veux savoir la <def> ayant un <sens> dont <ids> = 1  
voici l'extrait:
<dict>
<word value="استمارة">
<sense>
<ids>1</ids>
<def>استمارة ورقة تتضمّن بيانات معيّنة خاصَّة بمن يقوم بملئها وتقدَّم عند الالتحاق بمدرسة أو وظيفة أو أي أغراض أخرى ملأ استمارة الشهادة الثانويَّة استمارة قبول استمارة خاصّة تقدَّم للالتحاق بمعهد </def>
</sense>
<sense>
<ids>2</ids>
<def>غادر القطار المحطة</def>
</sense>
</word>      
</dict>

J'ai pas testé, mais ca devrait ressembler a ceci:  
 
foreach my $sense ($entry->findnodes('sense')) {
    foreach my $id ($sense->findnodes('id')) {
        my $num = $id->textContent;
        if ($num eq "1" ) {
            my @def = $id->findnodes('following-sibling::def')
            print $FhResultat $def[1]->textContent, "\n";
        }
    }
}
 
A+,

[quotemsg=2296624,6,19304]J'ai pas testé, mais ca devrait ressembler a ceci:  
 
foreach my $sense ($entry->findnodes('sense')) {
    foreach my $id ($sense->findnodes('id')) {
        my $num = $id->textContent;
        if ($num eq "1" ) {
            my @def = $id->findnodes('following-sibling::def')
            print $FhResultat $def[1]->textContent, "\n";
        }
    }
}
ça me donne cet erreur :Can't call method "textContent" on an undefined value  

$sense->findnodes('ids')
 
A+,

Merci gilou pour tous vos remarques, pour vos réponses et votre aide, sincèrement  j'ai beaucoup appris dans la programmation perl grâce à  vous, maintenant je suis même capable de programmer qqe programmes +- difficiles, bien sure je suis pas assez compétente en perl mais je souhaite la devenir un jour et c'est toujours cause de vos remarques et vos corrections... Merci beaucoup "le Roi" du perl