<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Eu tinha chegado nesses links do mp3, o problema é que fazer o download deles não funciona.<br><br>No caso:<br><br>use LWP::Simple;<br>my @url = get ('www.buscamp3.org/dl/34736943505352494374/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3');<br>open OUT,">". 'abcde.mp3';<br>print OUT $_ foreach (@url);<br><br>Obtive um arquivo vazio.<br><br>Oque pode ser??<br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: guedes_1000@hotmail.com<br>To: rio-pm@pm.org<br>Date: Sat, 20 Oct 2012 15:25:29 +0000<br>Subject: Re: [Rio-pm] HTML::Parse<br><br>
<style><!--
.ExternalClass .ecxhmmessage P
{padding:0px;}
.ExternalClass body.ecxhmmessage
{font-size:10pt;font-family:Tahoma;}
--></style>
<div dir="ltr">
Web::Scraper requer conhecimento de XPath e/ou seletores CSS.<br><br>Nesse caso não é pra mim, não retenho esses conmhecimentos.<br><br><div><div id="ecxSkyDrivePlaceholder"></div><hr id="ecxstopSpelling">From: creaktive@gmail.com<br>Date: Sat, 20 Oct 2012 00:13:10 -0300<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] HTML::Parse<br><br>Web::Scraper requer conhecimento de XPath e/ou seletores CSS.<div>No caso do link que você passou, URL do primeiro MP3 pode ser obtida via XPath:</div><div><br></div><div>//table[@class='linhas_lista'][1]//tr/td[2]/a/@href</div>
<div><br></div><div>De onde tirei isso? De uma extensão pro Chrome, chamada XPath Helper: <a href="https://chrome.google.com/webstore/detail/xpath-helper/hgimnogjllphhhkhlmebbmlgjoejdpjl" target="_blank">https://chrome.google.com/webstore/detail/xpath-helper/hgimnogjllphhhkhlmebbmlgjoejdpjl</a></div>
<div>Firefox tem (tinha?) um tal do XPather: <a href="https://addons.mozilla.org/en-US/firefox/addon/xpather/" target="_blank">https://addons.mozilla.org/en-US/firefox/addon/xpather/</a><div><br></div><div>Provando o que o Marcio disse:</div>
<div><br></div><div><div>stas@Stanislaws-MacBook-Pro:~$ perl -CADS -MDDP -MURI -MWeb::Scraper -e 'p scraper{process q(//h1/strong),title=>q(text);process q(//a[@href=~/\.mp3$/]),q(url[])=>q(@href)}->scrape((URI->new(q(<a href="http://www.buscamp3.org/busca/Thaeme+e+Thiago+-+Ai+que+do/%29" target="_blank">http://www.buscamp3.org/busca/Thaeme+e+Thiago+-+Ai+que+do/)</a>)) x 2)'</div>
<div>Printing in line 1 of -e:</div><div>\ {</div><div> title "Baixar Thaeme e Thiago - Ai que do/ grátis",</div><div> url [</div><div> [0] <a href="http://www.buscamp3.org/dl/3473494b6c3636334d55/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3" target="_blank">http://www.buscamp3.org/dl/3473494b6c3636334d55/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3</a>,</div>
<div> [1] <a href="http://www.buscamp3.org/dl/3473674c78687936326f/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3" target="_blank">http://www.buscamp3.org/dl/3473674c78687936326f/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3</a>,</div>
<div> [2] <a href="http://www.buscamp3.org/dl/34736943505352494374/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3" target="_blank">http://www.buscamp3.org/dl/34736943505352494374/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3</a>,</div>
<div> [3] <a href="http://www.buscamp3.org/dl/34734c6f727448494d71/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3" target="_blank">http://www.buscamp3.org/dl/34734c6f727448494d71/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3</a>,</div>
<div> [4] <a href="http://www.buscamp3.org/dl/3473644e636d6f345245/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3" target="_blank">http://www.buscamp3.org/dl/3473644e636d6f345245/554545485125135/Thaeme+E+Thiago+-+Ai+Que+Do.mp3</a></div>
<div> ]</div><div>}</div></div><div><br></div><div>Sem ser one-liner maldito:</div><div><br></div><div>#!/usr/bin/env perl</div><div>use common::sense;</div><div><div>use Data::Printer;</div><div>use URI;</div><div>use Web::Scraper;</div>
<div><br></div><div>my $url = URI->new('<a href="http://www.buscamp3.org/busca/Thaeme+e+Thiago+-+Ai+que+do/%27" target="_blank">http://www.buscamp3.org/busca/Thaeme+e+Thiago+-+Ai+que+do/'</a>);</div><div><br></div><div>p scraper {</div>
<div> process q(//h1/strong),</div><div> title => 'text';</div><div> process q(//a[@href=~/\\.mp3$/]),</div><div> 'url[]' => '@href';</div><div>}->scrape($url, $url);</div>
</div><div><br></div><div>ABS()<br><br>
<br><br><div class="ecxgmail_quote">2012/10/19 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span><br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Parece interessante mesmo, mas dificil de entender, principalmente quando é alguem que como eu não sabe nada de HTML.<br>Realmente não entendi como faria tudo isso com o Web::Scraper.<br><br><div><div></div><hr>From: <a href="mailto:marciodesouzaferreira@gmail.com">marciodesouzaferreira@gmail.com</a><br>
Date: Fri, 19 Oct 2012 21:14:53 -0300<div class="ecxim"><br>To: <a href="mailto:rio-pm@pm.org">rio-pm@pm.org</a><br>Subject: Re: [Rio-pm] HTML::Parse<br><br></div><div><div class="h5">estou cansado pra implementar, mas o Web::Scraper é tipo um néctar dos deuses, vc faz um crawler em 5' com ele, bem estilo Perl(que sai da frente e deixa você focar na solução) isso se o HTML não for um monstrengo =)<br clear="all">
<br>[]s,<br><br>Marcio Ferreira<div>@_marcioferreira</div><div><a target="_blank">(11) 8567-1482</a> skype: marcio.ferreir4</div><div><a href="http://marciodesouzaferreira.blogspot.com/" target="_blank">marciodesouzaferreira.blogspot.com</a><br>
</div><br>
<br><br><div>2012/10/19 Rafael Prenzier <span dir="ltr"><<a href="mailto:rafaelprenzier@gmail.com">rafaelprenzier@gmail.com</a>></span><br><blockquote style="border-left:1px #ccc solid;padding-left:1ex">
WWW::Mechanize ++<div><div><br><br><div>2012/10/19 Ricardo Filipo <span dir="ltr"><<a href="mailto:ricardo_filipo@yahoo.com.br">ricardo_filipo@yahoo.com.br</a>></span><br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">
Eu gosto do HTML::TreeBuilder pois dá uma visão mais organizada do DOM.<br><br>Veja um exemplo de uso:<br><a href="https://github.com/rfilipo/WebService-EBC/blob/master/lib/WebService/EBC/News.pm" target="_blank">https://github.com/rfilipo/WebService-EBC/blob/master/lib/WebService/EBC/News.pm</a><br>
<br> <blockquote style="margin-left:5px;padding-left:5px"> <div style="font-family:times new roman,new york,times,serif;font-size:12pt"> <div style="font-family:times new roman,new york,times,serif;font-size:12pt">
<div dir="ltr"> <font face="Arial"> <hr size="1"> <b><span style="font-weight:bold">De:</span></b> Aureliano Guedes <<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>><br> <b><span style="font-weight:bold">Para:</span></b> Rio PM <<a href="mailto:rio-pm@pm.org">rio-pm@pm.org</a>> <br>
<b><span style="font-weight:bold">Enviadas:</span></b> Sexta-feira, 19 de Outubro de 2012 13:22<br> <b><span style="font-weight:bold">Assunto:</span></b> [Rio-pm] HTML::Parse<br> </font> </div><div><div> <br><div>
<div><div dir="ltr">
Ola monges,<br>tudo bem?<br><br>Qual um bom modulo para buscar string em um HTML?<br>Vocês aconselham o HTML::Parse?<br><br>Eu não entendo muito de html, mas estou tentando pegar um link dentro de uma pagina.<br><br>Um exemplo é esse: <a href="http://www.buscamp3.org/busca/Thaeme+e+Thiago+-+Ai+que+do/" target="_blank">http://www.buscamp3.org/busca/Thaeme+e+Thiago+-+Ai+que+do/</a><br>
<br>Os Links estão nesse formato: <br><pre><span><<span>a</span> <span>href</span>="<a rel="nofollow" target="_blank">/download/thaeme+e+thiago+ai+que+do_3473494b6c3636334d55.html</a>" <span>title</span>="<a rel="nofollow" target="_blank">Thaeme E Thiago - Ai Que Do</a>"></span><span></span></pre>
<br>O Problema é que no caso dessa pagina tem 4 links desse modelo e eu queria pegar apenas o primeiro.<br>Poderia usar regexp mas anteriormente me disseram que não é muito
elegante parsear HTML na unha.<br><br>Sei que a duvida é banal, mas se puderem me dar uma dica agradeço.<br><br>Att,<br>Aureliano Guedes.<br> </div></div>
</div><br></div></div><div>_______________________________________________<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>
<br> </div></div> </div> </blockquote> <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"><div><br></div></div></div><span><font color="#888888">-- <br>
Rafael Prenzier dos Santos | Engenheiro e Perl Monger <br>
<br><div><img> <a target="_blank">(11) 5209-0847</a></div><div><div><div><div><br></div><div><a href="http://www.prenzier.com" target="_blank">www.prenzier.com</a><br>
</div>
<div><br><div><a href="http://gplus.to/prenzier" target="_blank"><img></a> <a href="http://www.facebook.com/rafaelprenzier" target="_blank"><img></a> <a href="http://twitter.com/prenzier/" target="_blank"><img></a> <a href="http://www.orkut.com.br/Main#Profile?uid=13496291347057199080" target="_blank"><img></a> <a href="http://cid-eacb613d80ce8dba.profile.live.com/" target="_blank"><img></a> <a href="http://www.delicious.com/rafaelprenzier/" target="_blank"><img></a> <a href="http://www.google.com/profiles/rafaelprenzier" target="_blank"><img></a> <a href="http://br.linkedin.com/pub/rafael-prenzier-dos-santos/29/6a2/478" target="_blank"><img></a> <a href="http://www.youtube.com/prenzier" target="_blank"><img></a> <a href="http://www.diigo.com/user/prenzier" target="_blank"><img></a> <a href="http://www.shelfari.com/rprenzier/shelf" target="_blank"><img></a> <a href="http://flavors.me/prenzier" target="_blank"><img></a> </div>
<div><a href="http://www.diigo.com/user/prenzier" target="_blank"></a><br><div><br></div></div></div></div></div></div><br>
</font></span><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>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div></div></div> </div></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></div></div>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>