<div dir="ltr">Andre acho que consegui, olha:<br><br><?xml version="1.0" encoding="UTF-8"?><br><soap:Envelope <br> xmlns:xsi="<a href="http://www.w3.org/2001/XMLSchema-instance">http://www.w3.org/2001/XMLSchema-instance</a>" <br>
xmlns:soapenc="<a href="http://schemas.xmlsoap.org/soap/encoding/">http://schemas.xmlsoap.org/soap/encoding/</a>" <br> xmlns:xsd="<a href="http://www.w3.org/2001/XMLSchema">http://www.w3.org/2001/XMLSchema</a>" <br>
soap:encodingStyle="<a href="http://schemas.xmlsoap.org/soap/encoding/">http://schemas.xmlsoap.org/soap/encoding/</a>" <br> xmlns:soap="<a href="http://schemas.xmlsoap.org/soap/envelope/">http://schemas.xmlsoap.org/soap/envelope/</a>"><br>
<soap:Body><br> <myprefix:method xmlns="http:/servidor/"><br> <nome xsi:type="xsd:string">andre</nome><br><br> <idade xsi:type="xsd:int">12</idade><br>
<br> <cidade xsi:type="xsd:string">rio</cidade><br> </myprefix:method><br> </soap:Body><br></soap:Envelope><br><br>Aqui o código caro precise:<br><br>#!/usr/bin/perl<br><br>
<br>use SOAP::Lite 'trace', 'debug';<br><br>@params = (<br> SOAP::Data->name('primeiro' => SOAP::Data->value (<br> SOAP::Data->name( 'nome' => 'andre' ),<br>
SOAP::Data->name( 'idade' => '12' ),<br> SOAP::Data->name( 'cidade' => 'rio' )<br> )<br> )<br>);<br><br><br> print SOAP::Lite<br> -> readable(1)<br>
-> uri('http:/servidor/')<br> -> proxy('<a href="http://servidor/script.asmx">http://servidor/script.asmx</a>')<br> -> new(@params)<br> -> call('myprefix:method' => @params)<br>
-> result;<br><br><div class="gmail_quote">2008/10/3 Andre Luis <span dir="ltr"><<a href="mailto:alpbs2003@gmail.com">alpbs2003@gmail.com</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 dir="ltr">Ola a todos,<br><br>Estou tentando montar um script usando SOAP::Ligth mais ele não esta montando a xml corretamente alguem pode me dar uma luz ?<br><br>#!/usr/bin/perl<br><br><br>use SOAP::Lite 'trace', 'debug';<br>
<br>@params = (<br> SOAP::Data->name('primeiro' => \SOAP::Data->value (<br> SOAP::Data->name( 'nome' => 'andre' ),<br> SOAP::Data->name( 'idade' => '12' ),<br>
SOAP::Data->name( 'cidade' => 'rio' )<br> )<br> )<br>);<br><br>print SOAP::Lite<br> -> readable(1)<br> -> uri('http:/servidor/')<br> -> proxy('<a href="http://servidor/script.asmx" target="_blank">http://servidor/script.asmx</a>')<br>
-> on_fault(<br>sub { my($soap, $res) = @_;<br> die ref $res ? $res->faultstring : $soap->transport->status, "\n";<br>})<br> -> call(@params)<br> -> result;<br><br><br>o resultado do xml eh<br>
<?xml version="1.0" encoding="UTF-8"?><br><soap:Envelope <br> xmlns:xsi="<a href="http://www.w3.org/2001/XMLSchema-instance" target="_blank">http://www.w3.org/2001/XMLSchema-instance</a>" <br>
xmlns:soapenc="<a href="http://schemas.xmlsoap.org/soap/encoding/" target="_blank">http://schemas.xmlsoap.org/soap/encoding/</a>" <br>
xmlns:xsd="<a href="http://www.w3.org/2001/XMLSchema" target="_blank">http://www.w3.org/2001/XMLSchema</a>" <br> soap:encodingStyle="<a href="http://schemas.xmlsoap.org/soap/encoding/" target="_blank">http://schemas.xmlsoap.org/soap/encoding/</a>" <br>
xmlns:soap="<a href="http://schemas.xmlsoap.org/soap/envelope/" target="_blank">http://schemas.xmlsoap.org/soap/envelope/</a>"><br> <soap:Body><br> <primeiro xsi:nil="true" /><br>
</soap:Body><br>
</soap:Envelope><br><br>e deveria ter <br><primeiro><br> <nome> andre </nome><br> <idade> 12 </idade><br> <cidade> rj </cidade><br></primeiro><br><br>Obrigado pela ajuda<br>
</div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<br>
</div>