Andre_br has asked for the wisdom of the Perl Monks concerning the following question:
Thanks a lot! Andrémy $url = "http://www.correios.com.br/encomendas/precos/calculo.cfm?re +sposta=paginaCorreios&servico=40045&MaoPropria=n&avisoRecebimento=N&c +epOrigem=$cep_origem&cepDestino=$cep_destino&peso=$peso&valorDeclarad +o=$valordeclarado"; my $response = $browser->get( $url ); die "Can´t get $url:" , $response->status_line unless $response->is_su +ccess; # o método get() do LWP::Simple my $html = $response->content; if ( $html =~ /\<b\>R\$\s(.*)\<\/b\>/ ) { # O string é, p.ex., "<b>R$ +12,40</b>". $frete_virgula = $1; }
|
|---|