Já que estamos brincando...<br><br><div><span class="gmail_quote">2007/1/9, Wendel Scardua &lt;<a href="mailto:wendelscardua@gmail.com">wendelscardua@gmail.com</a>&gt;:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">

Só um detalhe (me chame de --pedantic -ansi :-p ) Essa linha<span class="q"> $1 if $resultado =~ /Tarifa=(.+?)\&amp;erro/; 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=(.+?)\&amp;erro/;<br><br>(melhor KISS do que POG :-) )</blockquote><div><br>&lt;code&gt;<br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br><br>use CGI qw(:standard);<br>use CGI::Carp qw(fatalsToBrowser);

<br>use LWP::Simple;<br><br>print header, start_html;<br><br>my $servico&nbsp;&nbsp;&nbsp;&nbsp; = param(&#39;servico&#39;);<br>my $peso&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = param(&#39;peso&#39;);<br>my $cep_origem&nbsp; = param(&#39;cep_origem&#39;);<br>my $cep_destino = param(&#39;cep_destino&#39;);

<br><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><br>my $url =<br>&nbsp;&nbsp;&nbsp; &quot;<a href="http://www.correios.com.br/encomendas/precos/calculo.cfm">

http://www.correios.com.br/encomendas/precos/calculo.cfm</a>?&quot;<br>&nbsp; . &quot;servico=$servico&amp;CepOrigem=$cep_origem&amp;CepDestino=$cep_destino&amp;Peso=$peso&quot;;<br><br>my $resultado = get($url);<br>if ( $resultado =~ /Tarifa=(.+?)&amp;erro/ ) {

<br>&nbsp;&nbsp;&nbsp; printf &#39;Valor: R$ %.2f&#39;, $1;<br>}<br>else {<br>&nbsp;&nbsp;&nbsp; print &#39;Valor nao encontrado&#39;;<br>}<br>print end_html;<br><br>&lt;/code&gt; <br></div><br></div><br>-- <br>Igor Sutton Lopes &lt;<a href="mailto:igor.sutton@gmail.com">

igor.sutton@gmail.com</a>&gt;