<div dir="ltr">O importante é que o problema foi resolvido.<br><br>Eu não entendi isso<br><br><b>$ENV{HOME}/.cookies.txt</b><br>Se alguém pudesse explicar.<br>Obrigado<br><br><div class="gmail_quote">2008/9/15 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">> 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>
</div><a href="http://search.cpan.org/%7Egaas/libwww-perl-5.814/lib/LWP/UserAgent.pm" target="_blank">http://search.cpan.org/~gaas/libwww-perl-5.814/lib/LWP/UserAgent.pm</a><br>
<br>
RTFM:<br>
<br>
<br>
------ BEGIN LWP::UserAgent Documentation -----<br>
<div class="Ih2E3d">$ua->cookie_jar( $cookie_jar_obj )<br>
<br>
Get/set the cookie jar object to use. The only requirement is that<br>
the cookie jar object must implement the extract_cookies($request) and<br>
add_cookie_header($response) methods. These methods will then be invoked<br>
by the user agent as requests are sent and responses are received.<br>
Normally this will be a HTTP::Cookies object or some subclass.<br>
<br>
</div> The default is to have no cookie_jar, i.e. never automatically add<br>
"Cookie" headers to the requests.<br>
<br>
Shortcut: If a reference to a plain hash is passed in as the<br>
$cookie_jar_object, then it is replaced with an instance of<br>
HTTP::Cookies that is initialized based on the hash. This form also<br>
automatically loads the HTTP::Cookies module. It means that:<br>
<br>
$ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" });<br>
<br>
is really just a shortcut for:<br>
<br>
require HTTP::Cookies;<br>
<div class="Ih2E3d"> $ua->cookie_jar(HTTP::Cookies->new(file =><br>
</div>"$ENV{HOME}/.cookies.txt"));<br>
------ END LWP::UserAgent Documentation -----<br>
<br>
O módulo que você está procurando é o HTTP::Cookie.<br>
<div><div></div><div class="Wj3C7c"><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">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>