[Cascavel-pm] Sistema de frete
Igor Sutton
igor.sutton em gmail.com
Terça Janeiro 9 04:36:13 PST 2007
Já que estamos brincando...
2007/1/9, Wendel Scardua <wendelscardua em gmail.com>:
>
> Só um detalhe (me chame de --pedantic -ansi :-p )
>
> Essa linha
>
> $1 if $resultado =~ /Tarifa=(.+?)\&erro/;
>
> Porque que ela foi escrita assim ? Tipo, o $1 alí tá jogando seu valor
> para o limbo.
>
> Eu sugiro escrever apenas:
>
> $resultado =~ /Tarifa=(.+?)\&erro/;
>
> (melhor KISS do que POG :-) )
<code>
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use LWP::Simple;
print header, start_html;
my $servico = param('servico');
my $peso = param('peso');
my $cep_origem = param('cep_origem');
my $cep_destino = param('cep_destino');
#################
# Linhas dos corrios
#41017 = Encomenda Normal
#40010 = Sedex
#40290 = Sedex Hoje
#40215 = Sedex 10
#40045 = Sedex a Cobrar
###############
my $url =
"http://www.correios.com.br/encomendas/precos/calculo.cfm?"
.
"servico=$servico&CepOrigem=$cep_origem&CepDestino=$cep_destino&Peso=$peso";
my $resultado = get($url);
if ( $resultado =~ /Tarifa=(.+?)&erro/ ) {
printf 'Valor: R$ %.2f', $1;
}
else {
print 'Valor nao encontrado';
}
print end_html;
</code>
--
Igor Sutton Lopes <igor.sutton em gmail.com>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070109/d4f5f79b/attachment-0001.html
Mais detalhes sobre a lista de discussão Cascavel-pm