[Cascavel-pm] Sistema de frete

Gabriel ghpnet em gmail.com
Segunda Janeiro 8 16:29:33 PST 2007


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



Mais detalhes sobre a lista de discussão Cascavel-pm