<div dir="ltr"><br>Acho que já descobri só não sei uma forma de unir tudo.<br><br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use HTTP::Cookies;<br>use LWP::UserAgent;<br><br>my $url = "<a href="http://www.server.com.br">www.server.com.br</a>";<br>
my $ua = LWP::UserAgent->new;<br>$ua->timeout(10);<br>my $cookie_jar = HTTP::Cookies->new;<br><b>$cookie_jar->set_cookie("JSESSIONID", "A0F33406C55E366E39F31E4F57521672", "<a href="http://www4.server.com.br">www4.server.com.br</a>");</b><br>
my $response = $ua->get("$url");<br>my $conteudo = $response->content;<br>print "$conteudo\n";<br><br>Só sei como unir com o<b> $ua</b>.<br><br><div class="gmail_quote">2008/9/14 Daniel de Oliveira Mantovani <span dir="ltr"><<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</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 dir="ltr">Obrigado. <br>Vou que vou agora.<br><br><div class="gmail_quote">2008/9/14 Márcio Vitor <span dir="ltr"><<a href="mailto:cromo.jml@gmail.com" target="_blank">cromo.jml@gmail.com</a>></span><div>
<div></div><div class="Wj3C7c"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
perldoc LWP::UserAgent<br>
<br>
$ua->cookie_jar( $cookie_jar_obj )<br>
Get/set the cookie jar object to use. The only requirement<br>
is that the cookie jar object must<br>
implement the extract_cookies($request) and<br>
add_cookie_header($response) methods. These methods<br>
will then be invoked by the user agent as requests are sent<br>
and responses are received. Normally<br>
this will be a "HTTP::Cookies" object or some subclass.<br>
<br>
O método cookie_jar recebe um objeto de cookie no caso você pode usar<br>
o módulo HTTP::Cookies para criar o objeto:<br>
<div><br>
use LWP::UserAgent;<br>
my $ua = LWP::UserAgent->new;<br>
$ua->timeout(10);<br>
</div>$ua->cookie_jar(HTTP::Cookies->new(file => ".cookies.txt");<br>
<div>my $response = $ua->get($url);<br>
my $conteudo = $response->content;<br>
<br>
</div>perldoc HTTP::Cookies<br>
<br>
[]s e um bom domingo<br>
<br>
Márcio Vitor<br>
<br>
2008/9/14 Daniel de Oliveira Mantovani <<a href="mailto:daniel.oliveira.mantovani@gmail.com" target="_blank">daniel.oliveira.mantovani@gmail.com</a>>:<br>
<div><div></div><div>> Também não está funcionando, tem que por mais informações que nem a do Eden<br>
> 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<br>
> achei nada para por as opções.<br>
><br>
> 2008/9/14 Luis Motta Campos <<a href="mailto:luismottacampos@yahoo.co.uk" target="_blank">luismottacampos@yahoo.co.uk</a>><br>
>><br>
>> Daniel de Oliveira Mantovani wrote:<br>
>>><br>
>>> 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>
>><br>
>> O "motivo lógico" que você está procurando são "dados errados".<br>
>><br>
>>> 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>
>><br>
>> O que você quer não precisa de CGI:<br>
>><br>
>> use LWP::UserAgent; # USE, não REQUIRE<br>
>> my $ua = LWP::UserAgent->new;<br>
>> $ua->timeout(10);<br>
>> $ua->env_proxy;<br>
>> $ua->cookie_jar({ 'JSESSIONID' => '0B8B44E3E133D825D44164DE207DD2D6' });<br>
>> my $response = $ua->get("$url");<br>
>> my $conteudo = $response->content;<br>
>><br>
>> O LWP::UserAgent::cookie_jar é um método de acesso (accessor) para uma<br>
>> estrutura de dados em Perl (um hash-table), que contém pares nome-valor para<br>
>> cada cookie que deve ser gerado pelo cliente para o servidor. Para<br>
>> acrescentar um cookie, você precisa apenas acrescentar as informações<br>
>> necessárias na estrutura de dados.<br>
>><br>
>> Eu não testei seu código, mas agora deve funcionar.<br>
>> Putamplexos.<br>
>> --<br>
>> Luis Motta Campos is a software engineer,<br>
>> Perl Programmer, foodie and photographer.<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>
><br>
><br>
><br>
> --<br>
> Daniel de Oliveira Mantovani<br>
> "A sede pelo aprendizado é insaciável"<br>
> <a href="http://mantovanihouse.blogspot.com/" target="_blank">http://mantovanihouse.blogspot.com/</a><br>
> ------------------------------------------------------------<br>
><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>
><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></div></div><br><br clear="all"><br>-- <br><div class="Ih2E3d">Daniel de Oliveira Mantovani<br>"A sede pelo aprendizado é insaciável"<br><a href="http://mantovanihouse.blogspot.com/" target="_blank">http://mantovanihouse.blogspot.com/</a><br>
------------------------------------------------------------<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>