<div dir="ltr"><br>Obrigado André.<br><div class="gmail_quote">2008/9/16 André Moura <span dir="ltr"><<a href="mailto:andreoandre@gmail.com">andreoandre@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;">
Variavies no console:<br>
<br>
perl -e 'foreach (%ENV) { print $_ . "\n"; }' |less<br>
<br>
<br>
2008/9/16 André Moura <<a href="mailto:andreoandre@gmail.com">andreoandre@gmail.com</a>>:<br>
<div><div></div><div class="Wj3C7c">> Veja > <a href="http://omor.com/perl/env.cgi" target="_blank">http://omor.com/perl/env.cgi</a><br>
><br>
> 2008/9/15 Daniel de Oliveira Mantovani <<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>>:<br>
>> O importante é que o problema foi resolvido.<br>
>><br>
>> Eu não entendi isso<br>
>><br>
>> $ENV{HOME}/.cookies.txt<br>
>> Se alguém pudesse explicar.<br>
>> Obrigado<br>
>><br>
>> 2008/9/15 Luis Motta Campos <<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>><br>
>>><br>
>>> Daniel de Oliveira Mantovani wrote:<br>
>>> > Também não está funcionando, tem que por mais informações que nem a do<br>
>>> > 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<br>
>>> > não<br>
>>> > achei nada para por as opções.<br>
>>><br>
>>> <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>
>>> $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>
>>> 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>
>>> $ua->cookie_jar(HTTP::Cookies->new(file =><br>
>>> "$ENV{HOME}/.cookies.txt"));<br>
>>> ------ END LWP::UserAgent Documentation -----<br>
>>><br>
>>> O módulo que você está procurando é o HTTP::Cookie.<br>
>>><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>
>><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">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>
> --<br>
> André O Moura<br>
> <a href="http://andrem.wordpress.com" target="_blank">http://andrem.wordpress.com</a><br>
><br>
<br>
<br>
<br>
--<br>
André O Moura<br>
<a href="http://andrem.wordpress.com" target="_blank">http://andrem.wordpress.com</a><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>