[Cascavel-pm] Sistema de frete

[Wendel Scardua]

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 :-) )


On 1/8/07, Gabriel <ghpnet em gmail.com> wrote:
>
> Bem pessoal...
> Estou montando uma loja virtual para meu site, e me deparei na necessidade
> de fazer a parte de frete pelo meu site
> então analizando alguns sistemas, vi que eles faziam puxando o valor
> direto
> do site dos correios, usando essa metodologia, desenvolvi um codigo
> juntamente com o MAD.
> Ta ai em baixo para os entereçados;
>
> #!/usr/bin/perl
> print "content-type: text/html\n\n";
> use CGI::Carp qw(fatalsToBrowser);
> use LWP::Simple;
> #################
> # Linhas dos corrios
> #41017 = Encomenda Normal
> #40010 = Sedex
> #40290 = Sedex Hoje
> #40215 = Sedex 10
> #40045 = Sedex a Cobrar
> ###############
> $servico = "41017";
> $peso = "1.10";
> $cep_origem = "19180-470";
> $cep_destino = "09180-000";
>
> $url =
> "
> http://www.correios.com.br/encomendas/precos/calculo.cfm?servico=$servico&C
> epOrigem=$cep_origem&CepDestino=$cep_destino&Peso=$peso";
>
> $resultado = get("$url");
> $1 if $resultado =~ /Tarifa=(.+?)\&erro/;
> $valor = sprintf ("%.2f", $1);
> print "Valor: R\$ $valor";
>
>
>
> abraços a todos
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
[]s
Wendel

"Não ajustar o auto-ajuste" - http://wendel.scardua.net/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070109/a9440e3a/attachment.html