[Cascavel-pm] [Spam] Re: PrincipaisContribuidoresCascavelPM

[Fernando Oliveira]

Em 28/05/07, Alceu Rodrigues de Freitas Junior <glasswalk3r em hotmail.com>
escreveu:
>
> 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?
>

# $a?! Sei  lá o q é $a... acho q a é de alguma coisa...

    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
>

# dá...  if ($i eq "++"){$monks{ lc $1 }++}else{$monks{ lc $1 }--}

            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! Try it!<http://spaces.live.com/spacesapi.aspx?wx_action=create&wx_url=/friends.aspx&mkt=en-us>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070528/a33bb4f5/attachment-0001.html