Só um detalhe (me chame de --pedantic -ansi :-p )<br><br>Essa linha<br><br>$1 if $resultado =~ /Tarifa=(.+?)\&erro/;<br><br>Porque que ela foi escrita assim ? Tipo, o $1 alí tá jogando seu valor para o limbo.<br><br>Eu sugiro escrever apenas:
<br><br>$resultado =~ /Tarifa=(.+?)\&erro/;<br><br>(melhor KISS do que POG :-) )<br><br><br><div><span class="gmail_quote">On 1/8/07, <b class="gmail_sendername">Gabriel</b> <<a href="mailto:ghpnet@gmail.com">ghpnet@gmail.com
</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Bem pessoal...<br>Estou montando uma loja virtual para meu site, e me deparei na necessidade
<br>de fazer a parte de frete pelo meu site<br>então analizando alguns sistemas, vi que eles faziam puxando o valor direto<br>do site dos correios, usando essa metodologia, desenvolvi um codigo<br>juntamente com o MAD.<br>
Ta ai em baixo para os entereçados;<br><br>#!/usr/bin/perl<br>print "content-type: text/html\n\n";<br>use CGI::Carp qw(fatalsToBrowser);<br>use LWP::Simple;<br>#################<br># Linhas dos corrios<br>#41017 = Encomenda Normal
<br>#40010 = Sedex<br>#40290 = Sedex Hoje<br>#40215 = Sedex 10<br>#40045 = Sedex a Cobrar<br>###############<br>$servico = "41017";<br>$peso = "1.10";<br>$cep_origem = "19180-470";<br>$cep_destino = "09180-000";
<br><br>$url =<br>"<a href="http://www.correios.com.br/encomendas/precos/calculo.cfm?servico=$servico&C">http://www.correios.com.br/encomendas/precos/calculo.cfm?servico=$servico&C</a><br>epOrigem=$cep_origem&CepDestino=$cep_destino&Peso=$peso";
<br><br>$resultado = get("$url");<br>$1 if $resultado =~ /Tarifa=(.+?)\&erro/;<br>$valor = sprintf ("%.2f", $1);<br>print "Valor: R\$ $valor";<br><br><br><br>abraços a todos<br><br>_______________________________________________
<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div>
<br><br clear="all"><br>-- <br>[]s<br>Wendel<br><br>"Não ajustar o auto-ajuste" - <a href="http://wendel.scardua.net/">http://wendel.scardua.net/</a>