Discussion :

[manuds]

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 :

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

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>";
?>

[manuds]

personne pour aider un pauvre debutant?

[manuds]

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

Code :

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

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 :

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

ARRAY(0x86f4864)

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

[Jedai]

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

Code :

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

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

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

--
Jedaï

[manuds]

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

[manuds]

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

Code :

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

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

que j'ai traduit en perl :

Code :

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

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

[manuds]

j'ai testé ca

Code :

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

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 :

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

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

ca prend la tete...

[manuds]

ok c'est fait an java