[Cascavel-pm] PrincipaisContribuidoresCascavelPM

[Alceu Rodrigues de Freitas Junior]

Meus dois centavos:
 
use strict;use warnings;
my $m = WWW::Mechanize->new;
$m->get(" http://mail.pm.org/pipermail/cascavel-pm/");
my @links = $m->find_all_links( url_regex => qr#\d{4}-\w+.txt(?!\.gz)#, );
for my $link (@links) {
    for my $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;[]'s
Alceu


Date: Thu, 24 May 2007 17:36:16 -0300From: fernandocorrea em gmail.comTo: cascavel-pm em pm.orgSubject: Re: [Cascavel-pm] PrincipaisContribuidoresCascavelPMEu resolví brincar um pouco com o negocio do ++alguém quer me ajudar?<code>perl -MWWW::Mechanize -e '$m=WWW::Mechanize->new; $m->get(" http://mail.pm.org/pipermail/cascavel-pm/"); @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' </code>
 
_________________________________________________________________
News, entertainment and everything you care about at Live.com. Get it now!
http://www.live.com/getstarted.aspx
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070524/76a9fdb1/attachment.html