só faltou declarar %hash...<br><br><code><br>use strict;<br>use warnings;<br>use WWW::Mechanize;<br>my $m = WWW::Mechanize->new;<br>my %hash;<br>$m->get(" <a href="http://mail.pm.org/pipermail/cascavel-pm/">
http://mail.pm.org/pipermail/cascavel-pm/</a>");<br>my @links = $m->find_all_links( url_regex => qr#\d{4}-\w+.txt(?!\.gz)#, );<br>for my $link (@links) {<br> for my $a ( split m#$/#, $m->get( $link->url_abs )->content ) {
<br> eval "\$hash{" . lc $1 . "}$2"<br> if $a =~ /^\s*([\w-]+)((:?\+|-){2})\s*(#.*)?$/;<br> }<br>}<br>print "$_ => $hash{$_}$/" for keys %hash;<br></code><br><br>:wq!
<br><br><div><span class="gmail_quote">2007/5/24, Alceu Rodrigues de Freitas Junior <<a href="mailto:glasswalk3r@hotmail.com">glasswalk3r@hotmail.com</a>>:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>Meus dois centavos:<br>
<br>
use strict;<br>use warnings;<br>
my $m = WWW::Mechanize->new;<span class="q"><br>
$m->get(" <a href="http://mail.pm.org/pipermail/cascavel-pm/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://mail.pm.org/pipermail/cascavel-pm/</a>");<br></span>
my @links = $m->find_all_links( url_regex => qr#\d{4}-\w+.txt(?!\.gz)#, );<br>
for my $link (@links) {<br>
for my $a ( split m#$/#, $m->get( $link->url_abs )->content ) {<span class="q"><br>
eval "\$hash{" . lc $1 . "}$2"<br>
if $a =~ /^\s*([\w-]+)((:?\+|-){2})\s*(#.*)?$/;<br>
}<br>
}<br></span>print "$_ => $hash{$_}$/" for keys %hash;<br><br>[]'s<br>
Alceu<br>
<blockquote>
<hr>
Date: Thu, 24 May 2007 17:36:16 -0300<br>From: <a href="mailto:fernandocorrea@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">fernandocorrea@gmail.com</a><span class="q"><br>To: <a href="mailto:cascavel-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
cascavel-pm@pm.org</a><br>Subject: Re: [Cascavel-pm] PrincipaisContribuidoresCascavelPM<br><br></span><span class="q">Eu resolví brincar um pouco com o negocio do ++<br><br>alguém quer me ajudar?<br><br><code><br>perl -MWWW::Mechanize -e '$m=WWW::Mechanize->new; $m->get("
<a href="http://mail.pm.org/pipermail/cascavel-pm/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"> http://mail.pm.org/pipermail/cascavel-pm/</a>"); @links = $m->find_all_links(url_regex => qr#\d{4}-\w+.txt(?!\.gz)#,); for$link(@links){for$a(split m#$/#, $m->get($link->url_abs)->content){eval "\$hash{" . lc $1 . "}$2" if $a =~ /^\s*([\w-]+)((:?\+|-){2})\s*(#.*)?$/}} print "$_ => $hash{$_}$/" for keys %hash'
<br></code><br><br>
<div> </div></span></blockquote><span class="q"><br><hr>Get news, entertainment and everything you care about at <a href="http://Live.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Live.com</a>
. <a href="http://www.live.com/getstarted.aspx+" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Check it out!</a></span></div>
<br>_______________________________________________<br>Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando