Discussion :

[tsunamijf]

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 :

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

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

avec unevariable ($name),

Code :

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

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

ou plusieurs ($name, $value);

Code :

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

$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

[Jedai]

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 :

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

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

va marcher.

--
Jedaï

[tsunamijf]

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

Code :

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

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 :

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
#!/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 :

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

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>

[tsunamijf]

Jedaï,

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

Code :

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

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

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