dei uma melhorada no meu script... alguém quer me ajudar?<br><br>&lt;code&gt;<br>#!/usr/bin/perl -w<br><br>use strict; <br>use WWW::Mechanize;<br>use IO::Uncompress::Gunzip;<br><br>my $m = WWW::Mechanize-&gt;new;<br>my $onde = shift || &quot;rio&quot;;
<br>my %hash;<br>$m-&gt;get(&quot; <a href="http://mail.pm.org/pipermail/$onde-pm/">http://mail.pm.org/pipermail/$onde-pm/</a>&quot;);<br>my @links = $m-&gt;find_all_links( url_regex =&gt; qr#\d{4}-\w+.txt#, );<br>for (@links) {
<br>&nbsp;&nbsp;&nbsp; print $_-&gt;url_abs, $/;<br>&nbsp;&nbsp;&nbsp; $m-&gt;get($_-&gt;url_abs);<br>&nbsp;&nbsp;&nbsp; my $content = $m-&gt;content;<br>&nbsp;&nbsp;&nbsp; my $buffer;<br>&nbsp;&nbsp;&nbsp; if ($_-&gt;url_abs =~ /\.gz$/) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $z = new IO::Uncompress::Gunzip \$content;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $z-&gt;read($buffer);<br>&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp; else {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $buffer = $content;<br>&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp; $buffer =~ s#&lt;code&gt;.*?&lt;/code&gt;##gsm;<br>&nbsp;&nbsp;&nbsp; my $from;<br>&nbsp;&nbsp;&nbsp; for $a ( split m#$/#, $buffer ) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $from = $1 if $a =~ m#^\s*From: (.+)$#;
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if($a =~ /^\s*\(?([\w]+)\)?((:?\+|-){2})\s*(#.*)?$/) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; eval &quot;\$hash{&quot; . lc $1 . &quot;}$2&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;From: $from$/$a$/$/&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; }&nbsp;&nbsp; <br>}&nbsp;&nbsp; 
<br>print &quot;$_ =&gt; $hash{$_}$/&quot; for keys %hash;<br>&lt;/code&gt;<br><br><br><div><span class="gmail_quote">2007/5/24, Fernando Oliveira &lt;<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>
&gt;:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">só faltou declarar %hash...<br><br>&lt;code&gt;<br>use strict;<br>use warnings;<br>
use WWW::Mechanize;<span class="q"><br>my $m = WWW::Mechanize-&gt;new;<br></span>my %hash;<span class="q"><br>$m-&gt;get(&quot; <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>&quot;);<br>my @links = $m-&gt;find_all_links( url_regex =&gt; qr#\d{4}-\w+.txt(?!\.gz)#, );<br>for my $link (@links) {<br>&nbsp;&nbsp;&nbsp; for my $a ( split m#$/#, $m-&gt;get( $link-&gt;url_abs )-&gt;content ) {
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; eval &quot;\$hash{&quot; . lc $1 . &quot;}$2&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if $a =~ /^\s*([\w-]+)((:?\+|-){2})\s*(#.*)?$/;<br>&nbsp;&nbsp;&nbsp; }<br>}<br>print &quot;$_ =&gt; $hash{$_}$/&quot; for keys %hash;<br></span>&lt;/code&gt;<br>
<br>:wq!
<br><br><div><span class="gmail_quote">2007/5/24, Alceu Rodrigues de Freitas Junior &lt;<a href="mailto:glasswalk3r@hotmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">glasswalk3r@hotmail.com
</a>&gt;:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><span class="e" id="q_112bfe08603313a6_5">




<div>Meus dois centavos:<br>
&nbsp;<br>
use strict;<br>use warnings;<br>
my $m = WWW::Mechanize-&gt;new;<span><br>
$m-&gt;get(&quot; <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>&quot;);<br></span>
my @links = $m-&gt;find_all_links( url_regex =&gt; qr#\d{4}-\w+.txt(?!\.gz)#, );<br>
for my $link (@links) {<br>
&nbsp;&nbsp;&nbsp; for my $a ( split m#$/#, $m-&gt;get( $link-&gt;url_abs )-&gt;content ) {<span><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; eval &quot;\$hash{&quot; . lc $1 . &quot;}$2&quot;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if $a =~ /^\s*([\w-]+)((:?\+|-){2})\s*(#.*)?$/;<br>
&nbsp;&nbsp;&nbsp; }<br>
}<br></span>print &quot;$_ =&gt; $hash{$_}$/&quot; for keys %hash;<br><br>[]&#39;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><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>Eu resolví brincar um pouco com o negocio do ++<br><br>alguém quer me ajudar?<br><br>&lt;code&gt;<br>perl -MWWW::Mechanize -e &#39;$m=WWW::Mechanize-&gt;new; $m-&gt;get(&quot;
<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>&quot;); @links = $m-&gt;find_all_links(url_regex =&gt; qr#\d{4}-\w+.txt(?!\.gz)#,); for$link(@links){for$a(split m#$/#, $m-&gt;get($link-&gt;url_abs)-&gt;content){eval &quot;\$hash{&quot; . lc $1 . &quot;}$2&quot; if $a =~ /^\s*([\w-]+)((:?\+|-){2})\s*(#.*)?$/}} print &quot;$_ =&gt; $hash{$_}$/&quot; for keys %hash&#39; 
<br>&lt;/code&gt;<br><br>
<div>&nbsp;</div></span></blockquote><span><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></span></div><span class="q">
<br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">

http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></span></blockquote></div><span class="sg"><br><br clear="all"><br>-- <br>[]&#39;s Fernando
</span></blockquote></div><br><br clear="all"><br>-- <br>[]&#39;s Fernando