<div dir="ltr">Andre acho que consegui, olha:<br><br>&lt;?xml version=&quot;1.0&quot; encoding=&quot;UTF-8&quot;?&gt;<br>&lt;soap:Envelope <br>&nbsp;&nbsp;&nbsp; xmlns:xsi=&quot;<a href="http://www.w3.org/2001/XMLSchema-instance">http://www.w3.org/2001/XMLSchema-instance</a>&quot; <br>
&nbsp;&nbsp;&nbsp; xmlns:soapenc=&quot;<a href="http://schemas.xmlsoap.org/soap/encoding/">http://schemas.xmlsoap.org/soap/encoding/</a>&quot; <br>&nbsp;&nbsp;&nbsp; xmlns:xsd=&quot;<a href="http://www.w3.org/2001/XMLSchema">http://www.w3.org/2001/XMLSchema</a>&quot; <br>
&nbsp;&nbsp;&nbsp; soap:encodingStyle=&quot;<a href="http://schemas.xmlsoap.org/soap/encoding/">http://schemas.xmlsoap.org/soap/encoding/</a>&quot; <br>&nbsp;&nbsp;&nbsp; xmlns:soap=&quot;<a href="http://schemas.xmlsoap.org/soap/envelope/">http://schemas.xmlsoap.org/soap/envelope/</a>&quot;&gt;<br>
&nbsp; &lt;soap:Body&gt;<br>&nbsp;&nbsp;&nbsp; &lt;myprefix:method xmlns=&quot;http:/servidor/&quot;&gt;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;nome xsi:type=&quot;xsd:string&quot;&gt;andre&lt;/nome&gt;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;idade xsi:type=&quot;xsd:int&quot;&gt;12&lt;/idade&gt;<br>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;cidade xsi:type=&quot;xsd:string&quot;&gt;rio&lt;/cidade&gt;<br>&nbsp;&nbsp;&nbsp; &lt;/myprefix:method&gt;<br>&nbsp; &lt;/soap:Body&gt;<br>&lt;/soap:Envelope&gt;<br><br>Aqui o código caro precise:<br><br>#!/usr/bin/perl<br><br>
<br>use SOAP::Lite&nbsp; &#39;trace&#39;, &#39;debug&#39;;<br><br>@params = (<br>&nbsp;&nbsp;&nbsp; SOAP::Data-&gt;name(&#39;primeiro&#39; =&gt; SOAP::Data-&gt;value (<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SOAP::Data-&gt;name( &#39;nome&#39;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; &#39;andre&#39; ),<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SOAP::Data-&gt;name( &#39;idade&#39;&nbsp; =&gt; &#39;12&#39; ),<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SOAP::Data-&gt;name( &#39;cidade&#39;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; &#39;rio&#39; )<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br>&nbsp;&nbsp;&nbsp; )<br>);<br><br><br>&nbsp; print SOAP::Lite<br>&nbsp;&nbsp;&nbsp; -&gt; readable(1)<br>
&nbsp;&nbsp;&nbsp; -&gt; uri(&#39;http:/servidor/&#39;)<br>&nbsp;&nbsp;&nbsp; -&gt; proxy(&#39;<a href="http://servidor/script.asmx">http://servidor/script.asmx</a>&#39;)<br>&nbsp;&nbsp;&nbsp; -&gt; new(@params)<br>&nbsp;&nbsp;&nbsp; -&gt; call(&#39;myprefix:method&#39; =&gt; @params)<br>
&nbsp;&nbsp;&nbsp; -&gt; result;<br><br><div class="gmail_quote">2008/10/3 Andre Luis <span dir="ltr">&lt;<a href="mailto:alpbs2003@gmail.com">alpbs2003@gmail.com</a>&gt;</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&nbsp; &#39;trace&#39;, &#39;debug&#39;;<br>

<br>@params = (<br>&nbsp;&nbsp;&nbsp; SOAP::Data-&gt;name(&#39;primeiro&#39; =&gt; \SOAP::Data-&gt;value (<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SOAP::Data-&gt;name( &#39;nome&#39;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; &#39;andre&#39; ),<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SOAP::Data-&gt;name( &#39;idade&#39;&nbsp; =&gt; &#39;12&#39; ),<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SOAP::Data-&gt;name( &#39;cidade&#39;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; &#39;rio&#39; )<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br>&nbsp;&nbsp;&nbsp; )<br>);<br><br>print SOAP::Lite<br>&nbsp;&nbsp;&nbsp; -&gt; readable(1)<br>&nbsp;&nbsp;&nbsp; -&gt; uri(&#39;http:/servidor/&#39;)<br>&nbsp;&nbsp;&nbsp; -&gt; proxy(&#39;<a href="http://servidor/script.asmx" target="_blank">http://servidor/script.asmx</a>&#39;)<br>

&nbsp;&nbsp;&nbsp; -&gt; on_fault(<br>sub { my($soap, $res) = @_;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; die ref $res ? $res-&gt;faultstring : $soap-&gt;transport-&gt;status, &quot;\n&quot;;<br>})<br>&nbsp;&nbsp;&nbsp; -&gt; call(@params)<br>&nbsp;&nbsp;&nbsp; -&gt; result;<br><br><br>o resultado do xml eh<br>

&lt;?xml version=&quot;1.0&quot; encoding=&quot;UTF-8&quot;?&gt;<br>&lt;soap:Envelope <br>&nbsp;&nbsp;&nbsp; xmlns:xsi=&quot;<a href="http://www.w3.org/2001/XMLSchema-instance" target="_blank">http://www.w3.org/2001/XMLSchema-instance</a>&quot; <br>
&nbsp;&nbsp;&nbsp; xmlns:soapenc=&quot;<a href="http://schemas.xmlsoap.org/soap/encoding/" target="_blank">http://schemas.xmlsoap.org/soap/encoding/</a>&quot; <br>
&nbsp;&nbsp;&nbsp; xmlns:xsd=&quot;<a href="http://www.w3.org/2001/XMLSchema" target="_blank">http://www.w3.org/2001/XMLSchema</a>&quot; <br>&nbsp;&nbsp;&nbsp; soap:encodingStyle=&quot;<a href="http://schemas.xmlsoap.org/soap/encoding/" target="_blank">http://schemas.xmlsoap.org/soap/encoding/</a>&quot; <br>

&nbsp;&nbsp;&nbsp; xmlns:soap=&quot;<a href="http://schemas.xmlsoap.org/soap/envelope/" target="_blank">http://schemas.xmlsoap.org/soap/envelope/</a>&quot;&gt;<br>&nbsp; &lt;soap:Body&gt;<br>&nbsp;&nbsp;&nbsp; &lt;primeiro xsi:nil=&quot;true&quot; /&gt;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/soap:Body&gt;<br>
&lt;/soap:Envelope&gt;<br><br>e deveria ter <br>&lt;primeiro&gt;<br>&nbsp;&nbsp; &lt;nome&gt; andre &lt;/nome&gt;<br>&nbsp;&nbsp; &lt;idade&gt; 12 &lt;/idade&gt;<br>&nbsp;&nbsp; &lt;cidade&gt; rj &lt;/cidade&gt;<br>&lt;/primeiro&gt;<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 &quot;\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e&quot;,$/<br>

</div>