Não manjo nada de SOAP(chacal--). Mas reparei que vc está tentando usar WSDL. Tem um módulo específico só para isso, talvez fosse bom dar uma olhada:<br><br>SOAP::WSDL(<a href="http://search.cpan.org/~mkutter/SOAP-WSDL-2.00.10/lib/SOAP/WSDL.pm#wsdlinit">http://search.cpan.org/~mkutter/SOAP-WSDL-2.00.10/lib/SOAP/WSDL.pm#wsdlinit</a>)<br>
<br><br><br>Cheers!<br><br><br><div class="gmail_quote">2009/7/16 Marcio Mello <span dir="ltr"><<a href="mailto:marcio@modapoint.com.br">marcio@modapoint.com.br</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div bgcolor="#ffffff">
<div><font face="Arial" size="2">Olá à todos, </font></div>
<div><font face="Arial" size="2">Se alguém puder colaborar com uma
dica....</font></div>
<div><font face="Arial" size="2">Tenho que fazer uma conexão com um web service que
usa SOAP wsdl.</font></div>
<div><font face="Arial" size="2">Tenho um exemplo deles em PHP mas preciso em PERL.
</font></div>
<div><font face="Arial" size="2">Pelo que vi o módulo SOAP::Lite resolve o caso, mas
não sei ao certo como aplicar.</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">O que tenho como exemplo em PHP é:</font></div>
<div><font face="Arial" size="2"> if
(isset($_REQUEST['step']))<br> {<br>
$cardId = $_REQUEST['cardId'];<br> $cardIdType =
$_REQUEST['cardIdType'];<br> $ani =
$_REQUEST['ani'];<br>
<br> $client = new soapclient("CCPServiceV1.wsdl"
, true);<br>
$client->setCredentials($_SESSION['username'],
$_SESSION['password']);<br> $params =
array();<br> $params['cardId'] =
$cardId;<br> $params['cardIdType'] =
$cardIdType;<br> $params['ani'] =
$ani;<br> <br>
$result = $client->call('registerANI', $params);</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">E a URL de trabalho é: <a href="http://ws.telehumana.com:8080/services/CCPServiceV1Port?wsdl" target="_blank">http://ws.telehumana.com:8080/services/CCPServiceV1Port?wsdl</a></font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Alguma idéia de como fazer isto com o
SOAP::Lite?</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Grato por qualquer ajuda.</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Sds,</font></div>
<div><font face="Arial" size="2">Marcio Mello.</font></div></div>
<br>_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br>
<br>