Discussion :

[bennyboy]

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.

[Jedai]

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 :

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

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ï