<div dir="ltr">Boa tarde!<br>Estou com dúvida de como usar o $1.<br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use WWW::Mechanize;<br><br>my $google = WWW::Mechanize->new();<br>my $url = '<a href="http://www.google.com.br/search?hl=pt-BR&q=nasa&btnG=Pesquisa+Google&meta">http://www.google.com.br/search?hl=pt-BR&q=nasa&btnG=Pesquisa+Google&meta</a>';<br>
$google->get($url);<br>my $busca = $google->content();<br><b>print $1 for $busca=~ /<a href="(.*)">/;</b><br><br>Gostaria de saber como faço para imprimir só o que ta entre parênteses de uma forma correta, tentei usar o find_all_links() mas vem tudo até o que não é link.<br>
<br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>use WWW::Mechanize;<br>my $url = "<a href="http://www.google.com.br/search?hl=pt-BR&q=nasa&btnG=Pesquisa+Google&meta=">http://www.google.com.br/search?hl=pt-BR&q=nasa&btnG=Pesquisa+Google&meta=</a>";<br>
my $busca = WWW::Mechanize->new();<br>$busca->get($url);<br><b>$busca->find_all_links();</b><br>print $busca->content;<br><br>Obrigado.<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>