Bonjour à tous,

je débute en Perl et voilà l'erreur que j'obtiens et dont je n'ai aucune solution (après quelques heures de recherche!).

Voilà je dois recuperer une adresse IP depuis un fichier XML, jusqu'ici pas de problèmes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
if ($_->findvalue('Gateway')) {
                push(@gateway,$_->findvalue('Gateway'));
}
Puis je dois le passer en argument (partie souligné ):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11

 $cust_ip_settings =
           CustomizationIPSettings->new(dnsDomain=> $domain,
                                        dnsServerList=> @dnsserver,
                                        gateway=> @gateway,
                                        ip=> $customization_fixed_ip,
                                        netBIOS=> $netbios,
                                        primaryWINS=> $primwins,
                                        secondaryWINS=> $secwins,
                                        subnetMask=> $subnetmask);
Et voici donc mon erreur, sachant que l'adresse IP que j'ai encodé dans le fichier XML est 172.20.1.1 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
FaultCan't use string ("172.20.1.1") as an ARRAY ref while "strict refs" in use at /usr/share/perl/5.8/VMware/VIM25Stub.pm line 369, <STDIN> line 2.

Et voici le code de ce fichier en question, à la ligne en question :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7

if ($isarray) {
         @values = @$val;
      } else {
         @values = $val;
      }
Voilà en eperant que certains seront inspirés je vous remerci d'avance
Benny.