<html>
<head>
<style>
P
{
margin:0px;
padding:0px
}
body
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body>Meus dois centavos:<BR>
<BR>
use strict;<BR>use warnings;<BR>
my $m = WWW::Mechanize->new;<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><BR>[]'s<BR>
Alceu<BR>
<BLOCKQUOTE>
<HR id=EC_stopSpelling>
Date: Thu, 24 May 2007 17:36:16 -0300<BR>From: fernandocorrea@gmail.com<BR>To: cascavel-pm@pm.org<BR>Subject: Re: [Cascavel-pm] PrincipaisContribuidoresCascavelPM<BR><BR>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> 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></BLOCKQUOTE><br /><hr />Get news, entertainment and everything you care about at Live.com. <a href='http://www.live.com/getstarted.aspx ' target='_new'>Check it out!</a></body>
</html>