[Cascavel-pm] [Spam] Re: PrincipaisContribuidoresCascavelPM
Alceu Rodrigues de Freitas Junior
glasswalk3r em hotmail.com
Segunda Maio 28 10:41:57 PDT 2007
Segue os dois centavos de hoje abaixo...> > dei uma melhorada no meu script... alguém quer me ajudar?
Eu coloquei nomes de variáveis mais compreensíveis no seu código... não testei, então alguns erros gerados pela pragma strict podem acontecer.
<code>#!/usr/bin/perl
use warnings;use strict;use WWW::Mechanize;use IO::Uncompress::Gunzip;my $browser = WWW::Mechanize->new;my $onde = shift || "rio";my %monks;$browser->get(" http://mail.pm.org/pipermail/$onde-pm/");my @links = $browser->find_all_links( url_regex => qr#\d{4}-\w+.txt#, );for my $link (@links) { print $link->url_abs(), $/; $browser->get($link->url_abs); my $content = $browser->content(); my $buffer; if ($link->url_abs =~ /\.gz$/) { my $unzip_content = new IO::Uncompress::Gunzip \$content; $unzip_content->read($buffer); } else { $buffer = $content; } $buffer =~ s#<code>.*?</code>##gsm;
my $from;
# que diabos é $a?
for my $a ( split m#$/#, $buffer ) {
$from = $1 if $a =~ m#^\s*From: (.+)$#;
if($a =~ /^\s*\(?([\w]+)\)?((:?\+|-){2})\s*(#.*)?$/) {
# não dá para tirar esse eval daqui? seria melhor por questões de performance
eval "\$monks{" . lc $1 . "}$2";
print "From: $from$/$a$/$/";
}
}}
print "$_ => $hash{$_}$/" for keys %monks;
</code>[]'s
Alceu
_________________________________________________________________
Invite your mail contacts to join your friends list with Windows Live Spaces. It's easy!
http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070528/ddfbc493/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm