Discussion :

[tunwim]

Salut,

Je vous montre une portion de mon fichier xml :

Code :

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

1
2
3
4
5
6
7
 
<Fille>
    <Names>
                  <Name>Sarra</Name>
                  <Name>Eline</Name>
    </Names>
</Fille>

Ce que je voudrais c'est d'écrire à partir de ce fichier cette phrase :

print "Sarra et Eline sont des princesses"

mon code est le suivant :

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
 
my $Twig_Name = new XML::Twig(
                                       Twig_handlers =>  {'Fille'=>\&Name,}
							,);
# creation d'un objet twig
$Twig_Name->parsefile($file);
sub Name 
{
     my ($Twig_Name ,$TwigName ) = @_;
     foreach my $Twigname($TwigName ->first_child('Names')->children('Name'))
			{	
				my $Name= $Twigname->text);
                              print  $Name," et ",$Name," sont des princesses\n";
 
                         }
}

ce que j'obtient c'est

Sarra et Sarra sont des princesses
Eline et Eline sont des princesses

j’espère que mon problème est bien claire

[Lolo78]

A la lecture de ton code, c'est parfaitement normal que tu obtiennes ça.

Dans ta boucle foreach, tu récupères un premier prénom et fais ton impression. Dans l'itération suivante de cette boucle, tu récupères le second prénom et fait l'impression.

Il faut que tu récupères chacun des prénoms et fasses ton impression après être sorti de la boucle. Quelque chose de ce genre, par exemple:

Code :

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

1
2
3
4
5
6
     my @Names;
     foreach my $Twigname($TwigName ->first_child('Names')->children('Name'))
     {	
	push @Names, $Twigname->text); # stockage des prénoms dans un tableau
      }
       print  "$Name[0] et $Name[1] sont des princesses\n";

[tunwim]

Okay ..merci Lolo78

ça marche bien