[Cascavel-pm] Sistema de frete

[Igor Sutton]

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