[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