<div dir="ltr">Mesmo assim não funcionou,<br><br><div class="gmail_quote">2008/9/14 Márcio Vitor <span dir="ltr"><<a href="mailto:cromo.jml@gmail.com">cromo.jml@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;">
Daniel, não sei se o que você está pretendendo criando o cookie desta<br>
maneira vai funcionar, mas me parece que está faltando apenas você<br>
enviar o objeto criado com o cookie para o $ua através do método<br>
cookie_jar.<br>
<div class="Ih2E3d"><br>
Márcio Vitor<br>
<br>
2008/9/14 Daniel de Oliveira Mantovani <<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>>:<br>
</div><div class="Ih2E3d">> #!/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" target="_blank">www.server.com.br</a>";<br>
> my $ua = LWP::UserAgent->new;<br>
> $ua->timeout(10);<br>
> my $cookie_jar = HTTP::Cookies->new;<br>
> $cookie_jar->set_cookie("JSESSIONID", "A0F33406C55E366E39F31E4F57521672",<br>
> "<a href="http://www4.server.com.br" target="_blank">www4.server.com.br</a>");<br>
<br>
</div>$ua->cookie_jar($cookie_jar);<br>
<div><div></div><div class="Wj3C7c"><br>
> my $response = $ua->get("$url");<br>
> my $conteudo = $response->content;<br>
> print "$conteudo\n";<br>
><br>
> Só sei como unir com o $ua.<br>
><br>
> 2008/9/14 Daniel de Oliveira Mantovani <<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>><br>
>><br>
>> Obrigado.<br>
>> Vou que vou agora.<br>
>><br>
>> 2008/9/14 Márcio Vitor <<a href="mailto:cromo.jml@gmail.com">cromo.jml@gmail.com</a>><br>
>>><br>
>>> 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>
>>><br>
>>> use LWP::UserAgent;<br>
>>> my $ua = LWP::UserAgent->new;<br>
>>> $ua->timeout(10);<br>
>>> $ua->cookie_jar(HTTP::Cookies->new(file => ".cookies.txt");<br>
>>> my $response = $ua->get($url);<br>
>>> my $conteudo = $response->content;<br>
>>><br>
>>> perldoc HTTP::Cookies<br>
>>><br>
>>> []s e um bom domingo<br>
>>><br>
>>> Márcio Vitor<br>
>>><br>
>>> 2008/9/14 Daniel de Oliveira Mantovani<br>
>>> <<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>>:<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>
>>> > });<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<br>
>>> > 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">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<br>
>>> >>> 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<br>
>>> >>> 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>
>>> >> });<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<br>
>>> >> 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">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>
>>> 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>
><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>
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>