Abre o console e digita:<br>mech-dump <a href="http://www.google.com.br">http://www.google.com.br</a><br>:)<br><br><div class="gmail_quote">2009/4/22 Denilson Silva <span dir="ltr"><<a href="mailto:denilsongv2@hotmail.com">denilsongv2@hotmail.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>
<br>oi pessoal, <br><br> To precisando manipular FORMS pra fazer consultas automaticas na web, to tentando usar o modulo : <br><br>Mechanize - <a href="http://search.cpan.org/%7Epetdance/WWW-Mechanize-1.54/lib/WWW/Mechanize.pm" target="_blank">http://search.cpan.org/~petdance/WWW-Mechanize-1.54/lib/WWW/Mechanize.pm</a><br>
<br>montei o script de exemplo :<br><br> #!usr/bin/perl<br> use strict;<br> use warnings;<br> use WWW::Mechanize;<br><br><br> my $google = WWW::Mechanize->new();<br><br> my $url='<a href="http://www.google.com.br" target="_blank">http://www.google.com.br</a>';<br>
<br> $google->get($url);<br><br> my $busca = $google->content(); <br> <br> print $busca, "\n";<br><br> print "**********FORMS ************\n\n";<br><br> my @ref = $google->forms();<br>
<br><br> print @ref;<br><br><br><br>O ULTIMO PRINT RETORNA : HTML::Form=HASH(0x85ac988);<br><br>o metodo forms() retorna uma lista de forms, nao entendi esse HASH, se alguem souber como obter os forms agradeco !!<br>
<br><br><br><br><br><br><br><br><br>- - - - - - - -- - - - - -- - - - -- - - - -- - - -- - - -- - -<br><br>Denilson S. de Andrade<br> UFV - Universidade Federal de Viçosa <br>
<a href="mailto:denilson.andrade@ufv.br" target="_blank">denilson.andrade@ufv.br</a><br><br><br><br><br><hr>Quer saber qual produto Windows Live combina melhor com o seu perfil? <a href="http://www.windowslive.com.br" target="_blank">Clique aqui e descubra!</a></div>
<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></blockquote></div><br><br clear="all"><br>-- <br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>
This is my poney:<br>-------(\_------------_/)-----------<br>-------)--(----------)--(-----------<br>------(----(---------)----)----------<br>-------)----(-------)----(-----------<br>-------(----(-------)----)-----------<br>
--------\_-(\\.---.//)-_/------------<br>----------\)' -8--8- '(/--------------<br>-----------/------------\---------------<br>----------(--)--------(--)--------------<br>------------(_c__c_)----------------<br>----------------------------------------<br>
perl -MLWP::Simple -le 'grep{ print $1 if /href="(http.+?)"/}split($/,get("<a href="http://www.perl.org.br">http://www.perl.org.br</a>"))'<br>