[Cascavel-pm] OT - Que lingua é esta ? (Re: Sistema de frete)

[Luiz Gonzaga]

Entereçados ????

Nao resisiti.

Luiz.

Em Segunda 08 Janeiro 2007 22:29, Gabriel escreveu:
> 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

-- 
Luiz G. P. de Almeida
Analista de Sistemas
Laboratório Nacional de Computação Científica / MCT