[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