[SP-pm] Deveria Funcionar?
Luis Motta Campos
luismottacampos at yahoo.co.uk
Sun Sep 14 02:51:26 PDT 2008
Daniel de Oliveira Mantovani wrote:
> Olá pessoal, andei pesquisando e fiz de acordo com o que eu achei, e
> simplesmente não acho um motivo lógico pelo qual meu programa não está
> rodando.
O "motivo lógico" que você está procurando são "dados errados".
> require LWP::UserAgent;
> my $ua = LWP::UserAgent->new;
> $ua->timeout(10);
> $ua->env_proxy;
> my $q = new CGI;
> my $value = $q->cookie('*0B8B44E3E133D825D44164DE207DD2D6*');
> $ua->cookie_jar({ *'JSESSIONID*'=> $value });
> my $response = $ua->get("$url");
> my $conteudo = $response->content;
>
> Está abrindo o site correctamente, mas preciso inserir o Cookie (Nome e
> Valor), e simplesmente não funciona.
> Não da nem um erro, o Cookie simplesmente não funciona.
O que você quer não precisa de CGI:
use LWP::UserAgent; # USE, não REQUIRE
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->cookie_jar({ 'JSESSIONID' => '0B8B44E3E133D825D44164DE207DD2D6' });
my $response = $ua->get("$url");
my $conteudo = $response->content;
O LWP::UserAgent::cookie_jar é um método de acesso (accessor) para uma
estrutura de dados em Perl (um hash-table), que contém pares nome-valor
para cada cookie que deve ser gerado pelo cliente para o servidor. Para
acrescentar um cookie, você precisa apenas acrescentar as informações
necessárias na estrutura de dados.
Eu não testei seu código, mas agora deve funcionar.
Putamplexos.
--
Luis Motta Campos is a software engineer,
Perl Programmer, foodie and photographer.
More information about the SaoPaulo-pm
mailing list