[Twig] Inserer des variables dans la construction d'un path

Bonjour,

J'avance peu à peu avec Perl + Twig, et après plusieurs tentatives, je n'arrive pas à insérer des variables pour construire un path, sans les variables tout fonctionne.

sans les variables, le résultat correspond bien aux éléments OS dont l'attribut type vaut windows.

Code:

---

$check = $SERVEUR->children("OS[\@type=\"windows\"]");

---

avec unevariable ($name),

Code:

---

$check = $SERVEUR->children("$name[\@val=\"real\"]");

---

ou plusieurs ($name, $value);

Code:

---

$check = $SERVEUR->children("$name[\@val=\"$value\"]");

---

j'ai toujours ce message d'erreur :
Can't modify reference constructor in scalar assignment at ./ccc.pl line 27, near ""real"]"
Execution of ./ccc.pl aborted due to compilation errors.


J'ai essayé plusieurs solutions différentes (avec les \, avec des simples quotes, en jouant avec les doubles quotes ...) sans résultat


Une personne voit mon errreur ?

Merci d'avance

Oui, c'est lié à la façon dont Perl interpole les variables, il essaie d'aller le plus loin possible, ici il voit un élément de tableau "$machin[truc bidule]" et "truc bidule" est interprété comme une expression (un assignement à une référence \@type ...) puisqu'il se trouve entre les crochets...

Code:

---

"${name}[\@val=\"$value\"]"

---

va marcher.

--
Jedaï

J'avais essayé cette possibilité, protéger la variable name en la mettant entre crochet mais j'ai une erreur :

Code:

---

1 2	$check = $SERVEUR->children("${name}[\@val=\"$value\"]");

---

Bareword found where operator expected at ./bbb.pl line 22, near "print "Verification"
(Might be a runaway multi-line "" string starting on line 21)
(Do you need to predeclare print?)
et les messages d'erreurs se poursuivent avec une série de :
Unquoted string "de" may clash with future reserved word at ./bbb.pl line 22.
Backslash found where operator expected at ./bbb.pl line 22, near "$name \"
(Missing operator before \?)



Voici un script perl simple avec lequel je tente de trouver la solution d'insertion de variables :

Code:

---

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

#!/usr/bin/perl -w   use XML::Twig;   $twighandler = { "/SERVEUR" => \&SERVEUR }; $twig= new XML::Twig(twig_handlers => $twighandler, pretty_print => 'indented' ); $twig->parsefile( "bbb.xml");     sub SERVEUR { my ( $twig, $SERVEUR)=@_; $version = "linux"; CreateOrUpdate($SERVEUR,"OS", $version); }   sub CreateOrUpdate { my ($SERVEUR,$name,$vers) = @_; $check = $SERVEUR->children(${name}[\@version=\"$vers\"]); print "Verification presence de : $name \n"; if ($check == 0) { print "$name n'existe pas ...\n"; } else { print "$name existe\n"; } }     $twig->print();

---

et son fichier XML associé :

Code:

---

1 2 3 4 5 6 7 8 9 10

<SERVEUR> <HOSTNAME>monhost</HOSTNAME> <OS version="linux">debian</OS> <OS version="windows">win95</OS> <KERNEL>2.6</KERNEL> <NETWORK> <INTERFACE nic="eth0" ip="192.168.0.1" /> <INTERFACE nic="eth1" ip="192.168.0.2" /> </NETWORK> </SERVEUR>

---

Jedaï,

ca marche que je protège également la dernière variable :

Code:

---

$check = $SERVEUR->children("${name}[\@version=\"${ver}\"]");

---

Merci pour ta disponibilité et réactivité encore une fois :king: