soap: php vers perl soap::lite

bonsoir
je cherche a traduire le code php suivant en perl en utilisant soap::lite...
je me casse la tete dessus depuis un moment... mais je n'obtient aucune reponse...
une génie du perl peu m'aider?
merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9

<? $login='votre_login'; $passwd='votre_mot_de_passe'; $domain='votre_domaine';   $client = new SoapClient('https://url.com,array('login'=> $login,'password'=> $passwd,'exceptions'=>'1')); $info=$client->geInfo($domain); print "voici l'info $info<br>"; ?>

---

personne pour aider un pauvre debutant?:cry:

j'ai avancé un peu...
mais je bute sur un pb avec un ARRAY:

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl use SOAP::Lite;   $tab = SOAP::Lite -> service('http://login:pwd@urlService.wsdl') -> getInfo('domain') ; print "$tab";

---

j'obtiens :

Code:

---

ARRAY(0x86f4864)

---

mais je ne sais pas comment l'interpreter... des idées??
merci d'avance

Ca veut dire que $tab est une référence de tableau, pour le parcourir, il faut donc le déréférencer :

Code:

---

1 2 3

foreach my $info (@{$tab}) { print "$info\n"; }

---

Ainsi tu verras déjà ce que ton tableau contient.

--
Jedaï

merci mais ca ne liste rien... :-(

je pense que c'est un pb d'identification...
en php :

Code:

---

$client = new SoapClient('https://url.com,array('login'=> $login,'password'=> $passwd,'exceptions'=>'1'));

---

que j'ai traduit en perl :

Code:

---

1 2	$tab = SOAP::Lite -> service('http://login:pwd@urlService.wsdl')

---

ca doit pas marcher comme cela...
savez vous comment je peux transmettre le login et le password?
merci d'avance

j'ai testé ca

Code:

---

1 2 3 4

$service = SOAP::Lite -> service('http://betasoap.protecmail.com/ws_protecmail.wsdl','login'=> $login,'password'=> $passwd,'exception s'=>'1');

---

mais je tombe sur l'erreur duivante :

Code:

---

Can't call method "new" on an undefined value at /usr/share/perl5/SOAP/Lite.pm line 3364.

---

ca prend la tete...

ok c'est fait an java