Grego é?? Blz! Vou tentar traduzir um pouquinho então...<br><br>&lt;code&gt;<br>use strict;<br>use XML::Simple;<br>use Data::Dumper; #Isso vai ajudar vc a entender o que o XML::Simple vai trazer e como vai trazer.<br><br>my $string = &#39;&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-8&quot; ?&gt;<br>
                             <font face="Arial" size="2">&lt;soap:Envelope xmlns:xsi=&quot;<a href="http://www.w3.org/2001/XMLSchema-instance" target="_blank">http://www.w3.org/2001/XMLSchema-instance</a>&quot; 
xmlns:xsd=&quot;<a href="http://www.w3.org/2001/XMLSchema" target="_blank">http://www.w3.org/2001/XMLSchema</a>&quot; 
xmlns:soap=&quot;<a href="http://schemas.xmlsoap.org/soap/envelope/" target="_blank">http://schemas.xmlsoap.org/soap/envelope/</a>&quot;&gt;<br>  
&lt;soap:Header&gt;<br>    &lt;AuthHeader 
xmlns=&quot;vscws&quot;&gt;<br>      
&lt;distriID&gt;XXXX&lt;/distriID&gt;<br>      
&lt;password&gt;XXXXXX&lt;/password&gt;<br>    
&lt;/AuthHeader&gt;<br>  &lt;/soap:Header&gt;<br>  
&lt;soap:Body&gt;<br>    &lt;getUserTransactions 
xmlns=&quot;vscws&quot;&gt;<br>      
&lt;controlNumber&gt;XXXXXX&lt;/controlNumber&gt;<br>      
&lt;transactionType&gt;&lt;/transactionType&gt;<br>      
&lt;dateFrom&gt;2009-11-10&lt;/dateFrom&gt;<br>      
&lt;dateTo&gt;2009-11-30&lt;/dateTo&gt;<br>    
&lt;/getUserTransactions&gt;<br>  
&lt;/soap:Body&gt;<br>&lt;/soap:Envelope&gt;&#39;;</font>      <pre><font size="4"><br>    my $ref = undef;<br>    my $obj = XML::Simple-&gt;new();<br><br>    #Tratando possivel erro de parsing<br>    eval{$ref = $obj-&gt;XMLin($string);};#Isso transforma o XML em uma estrutura de dados em forma de hashes e arrays... <br>
    if($@){<br>        print &quot;\nNao foi possivel fazer o parsing: $@\n&quot;;<br>    }else{<br><br>        print Dumper $ref; #Isso mostra a estrutura de dados gerada pelo parsing.<br>        my $xml = XMLout($ref);#Isso converte a estrutura de dados armazenada em $ref para XML novamente. <br>
                               #Não sei se tem muito sentido isso para você, mas enfim...<br>    }<br></font></pre>__END__<br><br>&lt;/code&gt;<br><br><br>Quando executar esse script, vai ver algo do tipo: <br><br><br>$VAR1 = {<br>
          &#39;xmlns:xsi&#39; =&gt; &#39;<a href="http://www.w3.org/2001/XMLSchema-instance">http://www.w3.org/2001/XMLSchema-instance</a>&#39;,<br>          &#39;soap:Header&#39; =&gt; {<br>                           &#39;AuthHeader&#39; =&gt; {<br>
                                           &#39;xmlns&#39; =&gt; &#39;vscws&#39;,<br>                                           &#39;password&#39; =&gt; &#39;XXXXXX&#39;,<br>                                           &#39;distriID&#39; =&gt; &#39;XXXX&#39;<br>
                                         }<br>                         },<br>          &#39;soap:Body&#39; =&gt; {<br>                         &#39;getUserTransactions&#39; =&gt; {<br>                                                  &#39;xmlns&#39; =&gt; &#39;vscws&#39;,<br>
                                                  &#39;transactionType&#39; =&gt; {},<br>                                                  &#39;dateFrom&#39; =&gt; &#39;2009-11-10&#39;,<br>                                                  &#39;dateTo&#39; =&gt; &#39;2009-11-30&#39;,<br>
                                                  &#39;controlNumber&#39; =&gt; &#39;XXXXXX&#39;<br>                                                }<br>                       },<br>          &#39;xmlns:xsd&#39; =&gt; &#39;<a href="http://www.w3.org/2001/XMLSchema">http://www.w3.org/2001/XMLSchema</a>&#39;,<br>
          &#39;xmlns:soap&#39; =&gt; &#39;<a href="http://schemas.xmlsoap.org/soap/envelope/">http://schemas.xmlsoap.org/soap/envelope/</a>&#39;<br>        };<br><br>Aí é só acessar via perl o que você quer. Por exemplo, vamos capturar &#39;getUserTransactions&#39;<br>
<br>&lt;code&gt;<br><br>            my $getUserTransaction = $xml-&gt;{soap.Body}-&gt;{getUsertTransaction};<br><br>&lt;/code&gt;<br><br><br>Melhorou?<br><br><div class="gmail_quote">2009/12/4 Daniel de Oliveira Mantovani <span dir="ltr">&lt;<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@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;">2009/12/4 Marcio Mello &lt;<a href="mailto:marcio@modapoint.com.br">marcio@modapoint.com.br</a>&gt;:<br>

<div><div></div><div class="h5">&gt; Olá à todos,<br>
&gt; Não conheço bem o módulo XML::Simple e não sei como traduzir os dados<br>
&gt; corretamente.<br>
&gt; Se alguém puder ajudar, fico grato..<br>
&gt;<br>
&gt; A resposta que recebo do servidor está aqui e o código está abaixo:<br>
&gt;<br>
&gt; ===========================================================<br>
&gt; $VAR1 = { &#39;xmlns:xsi&#39; =&gt; &#39;<a href="http://www.w3.org/2001/XMLSchema-instance" target="_blank">http://www.w3.org/2001/XMLSchema-instance</a>&#39;,<br>
&gt; &#39;soap:Body&#39; =&gt; { &#39;getUserTransactionsResponse&#39; =&gt; { &#39;xmlns&#39; =&gt; &#39;vscws&#39;,<br>
&gt; &#39;getUserTransactionsResult&#39; =&gt; { &#39;VSC&#39; =&gt; { &#39;xmlns&#39; =&gt; &#39;&#39;,<br>
&gt; &#39;userTransactions&#39; =&gt; [ { &#39;Time&#39; =&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt;<br>
&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &quot;Brasil - S\x{e3}o Paulo - \x{c1}rea 11<br>
&gt; - Celular&quot;, &#39;Income&#39; =&gt; &#39;0.0000&#39;, &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt;<br>
&gt; &#39;1145822125&#39;, &#39;DestinationNumber&#39; =&gt; &#39;551199117099&#39;, &#39;Balance&#39; =&gt; &#39;-44.024&#39;,<br>
&gt; &#39;startTime&#39; =&gt; &#39;2009-11-27 17:28:45&#39;, &#39;Cost&#39; =&gt; &#39;0.89&#39;,<br>
&gt; &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;,<br>
&gt; &#39;RealTime&#39; =&gt; &#39;0:22&#39; }, { &#39;Time&#39; =&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt;<br>
&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &#39;Brasil - Roc&#39;, &#39;Income&#39; =&gt; &#39;0.0000&#39;,<br>
&gt; &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; &#39;1145822125&#39;, &#39;DestinationNumber&#39; =&gt;<br>
&gt; &#39;551145215888&#39;, &#39;Balance&#39; =&gt; &#39;-44.314&#39;, &#39;startTime&#39; =&gt; &#39;2009-11-27<br>
&gt; 17:25:45&#39;, &#39;Cost&#39; =&gt; &#39;0.29&#39;, &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;,<br>
&gt; &#39;billing&#39; =&gt; &#39;Limited&#39;, &#39;RealTime&#39; =&gt; &#39;0:19&#39; }, { &#39;Time&#39; =&gt; &#39;1:00&#39;, &#39;Limit&#39;<br>
&gt; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &#39;Brasil - Roc&#39;,<br>
&gt; &#39;Income&#39; =&gt; &#39;0.0000&#39;, &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; &#39;1145822125&#39;,<br>
&gt; &#39;DestinationNumber&#39; =&gt; &#39;551145215888&#39;, &#39;Balance&#39; =&gt; &#39;-44.604&#39;, &#39;startTime&#39;<br>
&gt; =&gt; &#39;2009-11-27 17:16:30&#39;, &#39;Cost&#39; =&gt; &#39;0.29&#39;, &#39;transactionDescription&#39; =&gt;<br>
&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;, &#39;RealTime&#39; =&gt; &#39;0:24&#39; }, { &#39;Time&#39; =&gt;<br>
&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt;<br>
&gt; &#39;Brasil -&#39;, &#39;Income&#39; =&gt; &#39;0.0000&#39;, &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt;<br>
&gt; &#39;1145822125&#39;, &#39;DestinationNumber&#39; =&gt; &#39;551164545504&#39;, &#39;Balance&#39; =&gt; &#39;-45.494&#39;,<br>
&gt; &#39;startTime&#39; =&gt; &#39;2009-11-27 17:06:44&#39;, &#39;Cost&#39; =&gt; &#39;0.89&#39;,<br>
&gt; &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;,<br>
&gt; &#39;RealTime&#39; =&gt; &#39;0:12&#39; }, { &#39;Time&#39; =&gt; &#39;1:48&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt;<br>
&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &#39;Brasil - Roc&#39;, &#39;Income&#39; =&gt; &#39;0.0000&#39;,<br>
&gt; &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; &#39;1130337016&#39;, &#39;DestinationNumber&#39; =&gt;<br>
&gt; &#39;551130337005&#39;, &#39;Balance&#39; =&gt; &#39;-46.016&#39;, &#39;startTime&#39; =&gt; &#39;2009-11-27<br>
&gt; 12:19:22&#39;, &#39;Cost&#39; =&gt; &#39;0.522&#39;, &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;,<br>
&gt; &#39;billing&#39; =&gt; &#39;Limited&#39;, &#39;RealTime&#39; =&gt; &#39;1:43&#39; }, { &#39;Time&#39; =&gt; &#39;1:00&#39;, &#39;Limit&#39;<br>
&gt; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &quot;Brasil - S\x{e3}o<br>
&gt; Paulo - \x{c1}rea 11 - Celular&quot;, &#39;Income&#39; =&gt; &#39;0.0000&#39;, &#39;controlNumber&#39; =&gt;<br>
&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; &#39;1130337016&#39;, &#39;DestinationNumber&#39; =&gt; &#39;551199117099&#39;,<br>
&gt; &#39;Balance&#39; =&gt; &#39;-46.906&#39;, &#39;startTime&#39; =&gt; &#39;2009-11-27 12:20:28&#39;, &#39;Cost&#39; =&gt;<br>
&gt; &#39;0.89&#39;, &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;,<br>
&gt; &#39;RealTime&#39; =&gt; &#39;0:13&#39; }, { &#39;Time&#39; =&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt;<br>
&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &quot;Brasil - S\x{e3}o Paulo - \x{c1}rea 11<br>
&gt; - Celular&quot;, &#39;Income&#39; =&gt; &#39;0.0000&#39;, &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt;<br>
&gt; &#39;1130337016&#39;, &#39;DestinationNumber&#39; =&gt; &#39;551199117099&#39;, &#39;Balance&#39; =&gt; &#39;-47.796&#39;,<br>
&gt; &#39;startTime&#39; =&gt; &#39;2009-11-27 12:07:35&#39;, &#39;Cost&#39; =&gt; &#39;0.89&#39;,<br>
&gt; &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;,<br>
&gt; &#39;RealTime&#39; =&gt; &#39;0:20&#39; }, { &#39;Time&#39; =&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt;<br>
&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &#39;Brasil - Roc&#39;, &#39;Income&#39; =&gt; &#39;0.0000&#39;,<br>
&gt; &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; &#39;1130337016&#39;, &#39;DestinationNumber&#39; =&gt;<br>
&gt; &#39;551130337005&#39;, &#39;Balance&#39; =&gt; &#39;-48.086&#39;, &#39;startTime&#39; =&gt; &#39;2009-11-27<br>
&gt; 12:06:08&#39;, &#39;Cost&#39; =&gt; &#39;0.29&#39;, &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;,<br>
&gt; &#39;billing&#39; =&gt; &#39;Limited&#39;, &#39;RealTime&#39; =&gt; &#39;0:21&#39; }, { &#39;Time&#39; =&gt; &#39;0:00&#39;, &#39;Limit&#39;<br>
&gt; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt; {}, &#39;destinationDescription&#39; =&gt; {}, &#39;Income&#39; =&gt; &#39;50&#39;,<br>
&gt; &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; {}, &#39;DestinationNumber&#39; =&gt; {},<br>
&gt; &#39;Balance&#39; =&gt; &#39;1.914&#39;, &#39;startTime&#39; =&gt; &#39;2009-11-26 18:05:36&#39;, &#39;Cost&#39; =&gt;<br>
&gt; &#39;0.0000&#39;, &#39;transactionDescription&#39; =&gt; &#39;Payment&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;,<br>
&gt; &#39;RealTime&#39; =&gt; &#39;0:00&#39; }, { &#39;Time&#39; =&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt;<br>
&gt; &#39;30338031&#39;, &#39;destinationDescription&#39; =&gt; &#39;Brasil - Roc&#39;, &#39;Income&#39; =&gt;<br>
&gt; &#39;0.0000&#39;, &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; &#39;1145822125&#39;,<br>
&gt; &#39;DestinationNumber&#39; =&gt; &#39;551145215888&#39;, &#39;Balance&#39; =&gt; &#39;1.624&#39;, &#39;startTime&#39; =&gt;<br>
&gt; &#39;2009-11-25 18:11:25&#39;, &#39;Cost&#39; =&gt; &#39;0.29&#39;, &#39;transactionDescription&#39; =&gt;<br>
&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;, &#39;RealTime&#39; =&gt; &#39;0:47&#39; }, { &#39;Time&#39; =&gt;<br>
&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt;<br>
&gt; &#39;Brasil - Roc&#39;, &#39;Income&#39; =&gt; &#39;0.0000&#39;, &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt;<br>
&gt; &#39;1145822125&#39;, &#39;DestinationNumber&#39; =&gt; &#39;551155478001&#39;, &#39;Balance&#39; =&gt; &#39;1.334&#39;,<br>
&gt; &#39;startTime&#39; =&gt; &#39;2009-11-25 11:55:47&#39;, &#39;Cost&#39; =&gt; &#39;0.29&#39;,<br>
&gt; &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;,<br>
&gt; &#39;RealTime&#39; =&gt; &#39;0:09&#39; }, { &#39;Time&#39; =&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt;<br>
&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &#39;Brasil - Roc&#39;, &#39;Income&#39; =&gt; &#39;0.0000&#39;,<br>
&gt; &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; &#39;1145822125&#39;, &#39;DestinationNumber&#39; =&gt;<br>
&gt; &#39;551140040435&#39;, &#39;Balance&#39; =&gt; &#39;1.044&#39;, &#39;startTime&#39; =&gt; &#39;2009-11-25 11:48:00&#39;,<br>
&gt; &#39;Cost&#39; =&gt; &#39;0.29&#39;, &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt;<br>
&gt; &#39;Limited&#39;, &#39;RealTime&#39; =&gt; &#39;0:07&#39; }, { &#39;Time&#39; =&gt; &#39;1:36&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;,<br>
&gt; &#39;DNIS&#39; =&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &#39;Brasil - Roc&#39;, &#39;Income&#39; =&gt;<br>
&gt; &#39;0.0000&#39;, &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; &#39;1145822125&#39;,<br>
&gt; &#39;DestinationNumber&#39; =&gt; &#39;551140040435&#39;, &#39;Balance&#39; =&gt; &#39;0.58&#39;, &#39;startTime&#39; =&gt;<br>
&gt; &#39;2009-11-25 11:09:02&#39;, &#39;Cost&#39; =&gt; &#39;0.464&#39;, &#39;transactionDescription&#39; =&gt;<br>
&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;, &#39;RealTime&#39; =&gt; &#39;1:31&#39; }, { &#39;Time&#39; =&gt;<br>
&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt;<br>
&gt; &#39;Brasil - Roc&#39;, &#39;Income&#39; =&gt; &#39;0.0000&#39;, &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt;<br>
&gt; &#39;1145822125&#39;, &#39;DestinationNumber&#39; =&gt; &#39;551138330767&#39;, &#39;Balance&#39; =&gt; &#39;0.29&#39;,<br>
&gt; &#39;startTime&#39; =&gt; &#39;2009-11-25 10:11:35&#39;, &#39;Cost&#39; =&gt; &#39;0.29&#39;,<br>
&gt; &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt; &#39;Limited&#39;,<br>
&gt; &#39;RealTime&#39; =&gt; &#39;0:47&#39; }, { &#39;Time&#39; =&gt; &#39;1:00&#39;, &#39;Limit&#39; =&gt; &#39;5&#39;, &#39;DNIS&#39; =&gt;<br>
&gt; &#39;56012&#39;, &#39;destinationDescription&#39; =&gt; &#39;Brasil - Roc&#39;, &#39;Income&#39; =&gt; &#39;0.0000&#39;,<br>
&gt; &#39;controlNumber&#39; =&gt; &#39;2414568&#39;, &#39;ANI&#39; =&gt; &#39;1145822125&#39;, &#39;DestinationNumber&#39; =&gt;<br>
&gt; &#39;551138330767&#39;, &#39;Balance&#39; =&gt; &#39;0.0000&#39;, &#39;startTime&#39; =&gt; &#39;2009-11-25 09:50:25&#39;,<br>
&gt; &#39;Cost&#39; =&gt; &#39;0.29&#39;, &#39;transactionDescription&#39; =&gt; &#39;Termination&#39;, &#39;billing&#39; =&gt;<br>
&gt; &#39;Limited&#39;, &#39;RealTime&#39; =&gt; &#39;0:52&#39; } ], &#39;Val&#39; =&gt; { &#39;UserID&#39; =&gt; &#39;2414568&#39; },<br>
&gt; &#39;STATUS&#39; =&gt; &#39;0&#39; } } } }, &#39;xmlns:xsd&#39; =&gt; &#39;<a href="http://www.w3.org/2001/XMLSchema" target="_blank">http://www.w3.org/2001/XMLSchema</a>&#39;,<br>
&gt; &#39;xmlns:soap&#39; =&gt; &#39;<a href="http://schemas.xmlsoap.org/soap/envelope/" target="_blank">http://schemas.xmlsoap.org/soap/envelope/</a>&#39; };<br>
&gt; =====================================================================<br>
&gt;<br>
&gt; use LWP::UserAgent;<br>
&gt; use HTTP::Request;<br>
&gt; use XML::Simple;<br>
&gt; use Data::Dumper;<br>
&gt;<br>
&gt; my $message = &#39;&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-8&quot;?&gt;<br>
&gt; &lt;soap:Envelope xmlns:xsi=&quot;<a href="http://www.w3.org/2001/XMLSchema-instance" target="_blank">http://www.w3.org/2001/XMLSchema-instance</a>&quot;<br>
&gt; xmlns:xsd=&quot;<a href="http://www.w3.org/2001/XMLSchema" target="_blank">http://www.w3.org/2001/XMLSchema</a>&quot;<br>
&gt; xmlns:soap=&quot;<a href="http://schemas.xmlsoap.org/soap/envelope/" target="_blank">http://schemas.xmlsoap.org/soap/envelope/</a>&quot;&gt;<br>
&gt;   &lt;soap:Header&gt;<br>
&gt;     &lt;AuthHeader xmlns=&quot;vscws&quot;&gt;<br>
&gt;       &lt;distriID&gt;XXXX&lt;/distriID&gt;<br>
&gt;       &lt;password&gt;XXXXXX&lt;/password&gt;<br>
&gt;     &lt;/AuthHeader&gt;<br>
&gt;   &lt;/soap:Header&gt;<br>
&gt;   &lt;soap:Body&gt;<br>
&gt;     &lt;getUserTransactions xmlns=&quot;vscws&quot;&gt;<br>
&gt;       &lt;controlNumber&gt;XXXXXX&lt;/controlNumber&gt;<br>
&gt;       &lt;transactionType&gt;&lt;/transactionType&gt;<br>
&gt;       &lt;dateFrom&gt;2009-11-10&lt;/dateFrom&gt;<br>
&gt;       &lt;dateTo&gt;2009-11-30&lt;/dateTo&gt;<br>
&gt;     &lt;/getUserTransactions&gt;<br>
&gt;   &lt;/soap:Body&gt;<br>
&gt; &lt;/soap:Envelope&gt;&#39;;<br>
&gt;<br>
&gt; my $length = length($message);<br>
&gt;<br>
&gt; my $userAgent = LWP::UserAgent-&gt;new();<br>
&gt; my $request = HTTP::Request-&gt;new(POST =&gt;<br>
&gt; &#39;<a href="http://200.XXX.XXX.XX:90/ws.asmx%27" target="_blank">http://200.XXX.XXX.XX:90/ws.asmx&#39;</a>);<br>
&gt; $request-&gt;header(SOAPAction =&gt; &#39;&quot;vscws/getUserTransactions&quot;&#39;);<br>
&gt; $request-&gt;content_type(&quot;text/xml; charset=utf-8&quot;);<br>
&gt; $request-&gt;content_length($length);<br>
&gt; $request-&gt;content($message);<br>
&gt;<br>
&gt; my $response = $userAgent-&gt;request($request);<br>
&gt;<br>
&gt;   #<br>
&gt;   # Parseando o resultado (XML) do servidor<br>
&gt;   #<br>
&gt;   my $ref = XMLin( $response-&gt;content ) or die $!;<br>
&gt;   my $xml = XMLout( my $hashref );<br>
&gt;<br>
&gt;   for ( my $i = $#{ $ref-&gt;{getUserTransactions} }; $i &gt; 0; $i-- ) {<br>
&gt;<br>
&gt;       $startdate = &quot;${ $ref-&gt;{getUserTransactions} }[$i]-&gt;{startTime}&quot;;<br>
&gt;       $origem    = &quot;${ $ref-&gt;{getUserTransactions} }[$i]-&gt;{ANI}&quot;;<br>
&gt;       $destino   = &quot;${ $ref-&gt;{getUserTransactions}<br>
&gt; }[$i]-&gt;{DestinationNumber}&quot;;<br>
&gt;       $descrip   = &quot;${ $ref-&gt;{getUserTransactions}<br>
&gt; }[$i]-&gt;{destinationDescription}&quot;;<br>
&gt;       $duration  = &quot;${ $ref-&gt;{getUserTransactions} }[$i]-&gt;{Time}&quot;;<br>
&gt;       $cost      = &quot;${ $ref-&gt;{getUserTransactions} }[$i]-&gt;{Cost}&quot;;<br>
&gt;<br>
&gt;    $tabelaprint .= &quot;<br>
&gt;      &lt;tr&gt;<br>
&gt;       &lt;td&gt;&lt;p align=\&quot;center\&quot;&gt;&lt;font face=\&quot;Arial\&quot;<br>
&gt; size=\&quot;1\&quot;&gt;&lt;b&gt;$startdate&lt;/b&gt;&lt;/font&gt;&lt;/td&gt;<br>
&gt;       &lt;td&gt;&lt;p align=\&quot;center\&quot;&gt;&lt;font face=\&quot;Arial\&quot;<br>
&gt; size=\&quot;1\&quot;&gt;$origem&lt;/font&gt;&lt;/td&gt;<br>
&gt;       &lt;td&gt;&lt;p align=\&quot;center\&quot;&gt;&lt;font face=\&quot;Arial\&quot;<br>
&gt; size=\&quot;1\&quot;&gt;&lt;b&gt;$destino&lt;/b&gt;&lt;/font&gt;&lt;/td&gt;<br>
&gt;       &lt;td&gt;&lt;p align=\&quot;center\&quot;&gt;&lt;font face=\&quot;Arial\&quot;<br>
&gt; size=\&quot;1\&quot;&gt;&lt;b&gt;$descrip&lt;/b&gt;&lt;/font&gt;&lt;/td&gt;<br>
&gt;       &lt;td&gt;&lt;p align=\&quot;center\&quot;&gt;&lt;font face=\&quot;Arial\&quot;<br>
&gt; size=\&quot;1\&quot;&gt;$duration&lt;/font&gt;&lt;/td&gt;<br>
&gt;       &lt;td&gt;&lt;p align=\&quot;center\&quot;&gt;&lt;font face=\&quot;Arial\&quot;<br>
&gt; size=\&quot;1\&quot;&gt;$cost&lt;/font&gt;&lt;/td&gt;<br>
&gt;    &lt;/tr&gt;<br>
&gt;    &quot;;<br>
&gt;   }<br>
&gt;<br>
&gt; if($response-&gt;code == 200) {<br>
&gt;   print &quot;$tabelaprint&quot;;<br>
&gt; }<br>
&gt; else {<br>
&gt;  print $response-&gt;error_as_HTML;<br>
&gt; };<br>
</div></div>Outra coisa, você está fazendo o parser do content, e depois que você<br>
termina você verifica se ele está ok ?<br>
<br>
É ao contrário!<br>
<br>
die unless $response-&gt;code == 200<br>
#Agora você faz o parser aqui!!!<br>
<br>
Você precisa de um carro para chegar em uma cidade, depois disso você<br>
vai queima-lo, o que seria certo:<br>
1 - Checar o motor antes de partir ?<br>
2 - Checar o motor depois que você chegou e não precisa mais do carro ?<br>
<div class="im"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
&gt; Obrigado.<br>
&gt; Marcio Mello.<br>
&gt; <a href="mailto:marcio@modapoint.com.br">marcio@modapoint.com.br</a><br>
</div><div><div></div><div class="h5">&gt; _______________________________________________<br>
&gt; SaoPaulo-pm mailing list<br>
&gt; <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
&gt; <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
&gt;<br>
<br>
<br>
<br>
--<br>
Existe dois tipos de pessoas, as que reclamam a vida inteira do que<br>
fazem, e as que fazem o que nasceram para fazer.<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>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br><br><br>