<div dir="ltr">Muito obrigado Frederico.<br>Aproveitando, queria navegar no gmail olhei o manual e estou fazendo mas não funciona, o problema é o cookie não consigo navegar com os cookies, olha:<br>my $url = "<a href="http://www.gmail.com">www.gmail.com</a>";<br>
require LWP::UserAgent;<br>my $ua = LWP::UserAgent->new;<br>$ua->timeout(10);<br>$ua->env_proxy;<br>$ua->cookie_jar(HTTP::Cookies->new("JSESSIONID=13AE25B259BB2FD23882FDC56B1DC208"));<br>my $response = $ua->get("$url");<br>
my $conteudo = $response->content;<br><br>Como teria que ficar para que na hora que ele "GET" o site ele usar os cookies ?<br><br><div class="gmail_quote">2008/9/13 Frederico Recsky <span dir="ltr"><<a href="mailto:frederico@gmail.com">frederico@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;">Olá,<br>
<br>
2008/9/12 Daniel de Oliveira Mantovani <<a href="mailto:daniel.oliveira.mantovani@gmail.com">daniel.oliveira.mantovani@gmail.com</a>>:<br>
<div class="Ih2E3d">><br>
> Boa noite pessoal, não estou entendendo algumas partes desse programa,<br>
> olhem:<br>
> #!/usr/bin/perl<br>
><br>
> use strict;<br>
> use warnings;<br>
> use CGI qw( :standard );<br>
><br>
> our ($name, $value) = split ( "=", $ENV{ QUERY_STRING} );<br>
><br>
> print header(),start_html("Simple Life Corp");<br>
> print h1(align_center("Simple Life Corp"));<br>
> print p('Entre com apenas uma palavra favorita sua aqui: ');<br>
> print '<form method = "GET" action = "aplicativo.pl">';<br>
> print '<input type ="text" name = "word">';<br>
> print '<input type = "submit" value = "Submit Word">';<br>
> if ($name eq 'word'){<br>
> print p(' Sua palavra favorita: ',b($value) );<br>
> }<br>
> print end_html();<br>
><br>
><br>
> sub align_center<br>
> {<br>
> my $align_center = shift;<br>
> return "<p align=center>$align_center</p>"<br>
> }<br>
><br>
> A linha em negrito que é responsável pelo valor que eu envio da caixa chegar<br>
> ao nome?<br>
> Isso me confundiu completamente.<br>
<br>
</div>Sim.<br>
<br>
Na verdade é onde voce recebe a informação quando posta no formulario<br>
da pagina . Você ta pegando essa informação na mão. No mesmo modulo<br>
CGI tem como pegar os parametros de forma bem mais amigavel.<br>
<br>
<a href="http://search.cpan.org/%7Elds/CGI.pm-3.42/CGI.pm#FETCHING_THE_NAMES_OF_ALL_THE_PARAMETERS_PASSED_TO_YOUR_SCRIPT" target="_blank">http://search.cpan.org/~lds/CGI.pm-3.42/CGI.pm#FETCHING_THE_NAMES_OF_ALL_THE_PARAMETERS_PASSED_TO_YOUR_SCRIPT</a>:<br>
<br>
Não sei se voce olhou a mecanica do CGI (em geral, não só Perl), como<br>
é feito post, get , forms, etc.. Se você entendeu como funciona pode<br>
pular direto para as funções prontas e não precisa ficar sofrendo<br>
fazendo na mão, mesmo que seja para "aprender".<br>
<br>
[]'s<br>
<br>
--<br>
____________________________<br>
<font color="#888888">Frederico Recsky<br>
Linux User: #253572<br>
<a href="http://www.fred.eti.br" target="_blank">http://www.fred.eti.br</a><br>
<a href="http://www.perl.org.br" target="_blank">http://www.perl.org.br</a><br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</font></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>