<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Ola monges,<div><br></div><div>Estou desenvolvendo um scriptzinho teste que se der tudo certo transformo em modulo e faço o upload para o CPAN.</div><div><br></div><div>O script trabalha com calculo de frete, semelhante ao <span style="font-family: arial, sans-serif; font-size: 12pt; background-color: rgb(255, 255, 255);">WWW::Correios::PrecoPrazo</span><span style="font-size: 12pt;"> do Garu.</span></div><div><span style="font-size: 12pt;"><br></span></div><div><span style="font-size: 12pt;">A diferença é que ele calcula o frete com o desconto oferecido pelo PagSeguro para Envio Fácil (e-sedex) quando o pagamento é efetuado via PagSeguro.</span></div><div><span style="font-size: 12pt;"><br></span></div><div><span style="font-size: 12pt;">Estou usando o WWW::Mechanize, mas algo da errado. Quando preencho os fields e submito retorna o seguinte erro:</span></div><div><span style="font-size: 12pt;">'</span>Error GETing https://pagseguro.uol.com.br/para_seu_negocio/howItWorksCalculator.</div><div>jhtml?originCep=74491626&destinyCep=36072130&width=30&height=6&length=40&weight=</div><div>0.300: Not Found at C:\Users\Aureliano\Desktop\CEP\CEP.pl line 29.<span style="font-size: 12pt;">'</span></div><div><span style="font-size: 12pt;"><br></span></div><div><span style="font-size: 12pt;">Mas não sei exato qual o problema, mas parece que ta tentando puxar essa uri, ou sei la o que ta acontecendo.</span></div><div><span style="font-size: 12pt;"><br></span></div><div><span style="font-size: 12pt;">Alguem tem alguma ideia?</span></div><div><span style="font-size: 12pt;"><br></span></div><div><span style="font-size: 12pt;">link do script completo: </span><a href="http://pastebin.com/Cg7XWBgB" target="_blank" style="font-size: 12pt;">http://pastebin.com/Cg7XWBgB</a></div><div><span style="font-size: 12pt;"><br></span></div><div>Rotina onde acredito estar o problema:</div><div><div>sub envio_facil{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my ($o, $d, $c, $a, $l) = @_;</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $url = WWW::Mechanize->new();</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>$url->get('http://www.pagseguro.uol.com.br/para_seu_negocio/envio-facil.jhtml');</div><div><span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>$url->submit_form(</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>form_id <span class="Apple-tab-span" style="white-space:pre"> </span>=> 'simulateCep',</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>fields <span class="Apple-tab-span" style="white-space:pre"> </span>=> {originCep<span class="Apple-tab-span" style="white-space:pre"> </span>=> $c,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>destinyCep<span class="Apple-tab-span" style="white-space:pre"> </span>=> $d,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>width <span class="Apple-tab-span" style="white-space:pre"> </span> <span class="Apple-tab-span" style="white-space:pre"> </span>=> $l,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>height <span class="Apple-tab-span" style="white-space:pre"> </span>=> $a,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>length <span class="Apple-tab-span" style="white-space:pre"> </span>=> $c,<span class="Apple-tab-span" style="white-space:pre"> </span>,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>},</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>);</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $preco = $url->decoded_content;</div><div><span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>return $preco;</div><div>}</div></div><div><br></div><div><br></div><div><span style="font-size: 12pt;"><br></span></div><div><span style="font-size: 12pt;"><br></span></div><div><span style="font-size: 12pt;"><br></span></div> </div></body>
</html>