[Rio-pm] Boas vindas ao Fabio Rocha

[Fernando Oliveira]

Alguém me ajuda?

<code>
#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;
use IO::Uncompress::Gunzip;

my $m = WWW::Mechanize->new;
my $onde = shift || "rio";
my %hash;
$m->get(" http://mail.pm.org/pipermail/$onde-pm/");
my @links = $m->find_all_links( url_regex => qr#\d{4}-\w+.txt#, );
for (@links) {
    print $_->url_abs, $/;
    $m->get($_->url_abs);
    my $content = $m->content;
    my $buffer;
    if ($_->url_abs =~ /\.gz$/) {
       my $z = new IO::Uncompress::Gunzip \$content;
       $z->read($buffer);
    }
    else {
       $buffer = $content;
    }
    $buffer =~ s#<code>.*?</code>##gsm;
    my $from;
    for $a ( split m#$/#, $buffer ) {
        $from = $1 if $a =~ m#^\s*From: (.+)$#;
        if($a =~ /^\s*\(?([\w]+)\)?((:?\+|-){2})\s*(#.*)?$/) {
            eval "\$hash{" . lc $1 . "}$2";
            print "From: $from$/$a$/$/";
        }
    }
}
print "$_ => $hash{$_}$/" for keys %hash;
</code>


Em 25/05/07, Fernando Oliveira <fernandocorrea em gmail.com> escreveu:
>
> por falar nisso, vcs querem saber qtos ++ vcs já receberam?
>
> perl -MWWW::Mechanize -e '
>
> use strict;
> use warnings;
> my $m = WWW::Mechanize->new; my %hash;
> $m->get(" http://mail.pm.org/pipermail/rio-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;
>
> '
>
>
> Em 25/05/07, Fernando Oliveira <fernandocorrea em gmail.com> escreveu:
> >
> > Blabos++
> >
> > Em 25/05/07, Blabos de Blebe < blabos em gmail.com> escreveu:
> > >
> > > Rio+SP+ES
> > >
> > > Em 25/05/07, Fernando Oliveira<fernandocorrea em gmail.com> escreveu:
> > > > Wesley, vc tb está aqui?! Eu nem sabia disso!!!
> > > >
> > > > Em 25/05/07, Blabos de Blebe < blabos em gmail.com> escreveu:
> > > > >
> > > > > Se até o Darth Vader abandonou o Lado Negro, vc também pode.
> > > > >
> > > > > "... o medo leva à raiva, a raiva leva ao ódio e o ódio leva ao
> > > lado
> > > > negro..."
> > > > >
> > > >           Mestre Yoda
> > > > >
> > > > > Coragem jovem padawan.
> > > > >
> > > > > Em 25/05/07, Fabio Rocha< fabio em fabiofarias.com.br > escreveu:
> > > > > > Valeu brothers, meu amigo fernando está me convertendo a
> > > PerlBrother eu
> > > > sou
> > > > > > Programador PHP , Js mas achei muito interessante o perl .
> > > > > >
> > > > > > Abraços a todos e no que precisarem e eu puder eu ajudarei.
> > > > > >
> > > > > > []s
> > > > > >
> > > > > >  Em 25/05/07, Fernando Oliveira < fernandocorrea em gmail.com>
> > > escreveu:
> > > > > > > Vou robar o trabalho do Breno e dar as boas vindas ao Fabio
> > > Rocha!!!
> > > > > > >
> > > > > > > Seja bem vindo!!!
> > > > > > >
> > > > > > > --
> > > > > > > []'s Fernando
> > > > > > > _______________________________________________
> > > > > > > Rio-pm mailing list
> > > > > > > Rio-pm em pm.org
> > > > > > > http://mail.pm.org/mailman/listinfo/rio-pm
> > > > > > >
> > > > > >
> > > > > >
> > > > > > _______________________________________________
> > > > > > Rio-pm mailing list
> > > > > > Rio-pm em pm.org
> > > > > > http://mail.pm.org/mailman/listinfo/rio-pm
> > > > > >
> > > > > _______________________________________________
> > > > > Rio-pm mailing list
> > > > > Rio-pm em pm.org
> > > > > http://mail.pm.org/mailman/listinfo/rio-pm
> > > > >
> > > >
> > > >
> > > >
> > > > --
> > > > []'s Fernando
> > > > _______________________________________________
> > > > Rio-pm mailing list
> > > > Rio-pm em pm.org
> > > > http://mail.pm.org/mailman/listinfo/rio-pm
> > > >
> > > _______________________________________________
> > > Rio-pm mailing list
> > > Rio-pm em pm.org
> > > http://mail.pm.org/mailman/listinfo/rio-pm
> > >
> >
> >
> >
> > --
> > []'s Fernando
>
>
>
>
> --
> []'s Fernando




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