<div dir="ltr">Também não está funcionando, tem que por mais informações que nem a do Eden pois acima.<br>use LWP::UserAgent;<br>my $ua = LWP::UserAgent->new;<br>$ua->timeout(10);<br>$ua->cookie_jar({ 'JSESSIONID' => 'A898046DD481350D04CEDA944EAEF7DF' }); <br>
my $response = $ua->get("$url");<br>my $conteudo = $response->content;<br><br>Acho que precisa do servidor, mas algumas coisas, eu olhei na Internet e não achei nada para por as opções.<br><br><div class="gmail_quote">
2008/9/14 Luis Motta Campos <span dir="ltr"><<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="Ih2E3d">Daniel de Oliveira Mantovani wrote:<br>
</div><div class="Ih2E3d"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Olá pessoal, andei pesquisando e fiz de acordo com o que eu achei, e<br>
simplesmente não acho um motivo lógico pelo qual meu programa não está<br>
rodando.<br>
</blockquote>
<br></div>
O "motivo lógico" que você está procurando são "dados errados".<div class="Ih2E3d"><br>
<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
require LWP::UserAgent;<br>
my $ua = LWP::UserAgent->new;<br>
$ua->timeout(10);<br>
$ua->env_proxy;<br>
my $q = new CGI;<br>
my $value = $q->cookie('*0B8B44E3E133D825D44164DE207DD2D6*');<br>
$ua->cookie_jar({ *'JSESSIONID*'=> $value });<br>
my $response = $ua->get("$url");<br>
my $conteudo = $response->content;<br>
<br>
Está abrindo o site correctamente, mas preciso inserir o Cookie (Nome e<br>
Valor), e simplesmente não funciona.<br>
Não da nem um erro, o Cookie simplesmente não funciona.<br>
</blockquote>
<br></div>
O que você quer não precisa de CGI:<br>
<br>
use LWP::UserAgent; # USE, não REQUIRE<div class="Ih2E3d"><br>
my $ua = LWP::UserAgent->new;<br>
$ua->timeout(10);<br>
$ua->env_proxy;<br></div>
$ua->cookie_jar({ 'JSESSIONID' => '0B8B44E3E133D825D44164DE207DD2D6' });<div class="Ih2E3d"><br>
my $response = $ua->get("$url");<br>
my $conteudo = $response->content;<br>
<br></div>
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.<br>
<br>
Eu não testei seu código, mas agora deve funcionar.<br>
Putamplexos.<br><font color="#888888">
-- <br>
Luis Motta Campos is a software engineer,<br>
Perl Programmer, foodie and photographer.</font><div><div></div><div class="Wj3C7c"><br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Daniel de Oliveira Mantovani<br>"A sede pelo aprendizado é insaciável"<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
------------------------------------------------------------<br>
</div>