Can't use string as an Array ref

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:

---

1 2 3 4

if ($_->findvalue('Gateway')) { push(@gateway,$_->findvalue('Gateway')); }

---

Puis je dois le passer en argument (partie souligné ;) ):

Code:

---

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:

---

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:

---

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.

Tu ne peux pas passer des tableaux directement en paramètre et qu'ils gardent leur identité de tableau, il seront applati par le passage en paramètre et leur contenu mélangé avec les autres arguments... C'est pourquoi il faut plutôt passer une référence vers ce tableau (cf FAQ pour plus de détails sur les références).

Code:

---

1 2 3 4 5 6 7 8 9

$cust_ip_settings = CustomizationIPSettings->new(dnsDomain=> $domain, dnsServerList=> \@dnsserver, gateway=> \@gateway, ip=> $customization_fixed_ip, netBIOS=> $netbios, primaryWINS=> $primwins, secondaryWINS=> $secwins, subnetMask=> $subnetmask);

---

--
Jedaï