[Rio-pm] Próximo encontro social

[Fernando Oliveira]

se vc usarem a sintax /^($lugar)++\s*(#.*)?$/ o contador de karma pode
ajudar a contar os votos...

segue o karma.pl

<code>
use WWW::Mechanize;
use IO::Uncompress::Gunzip;

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

Em 05/07/07, Eduardo Maia <maia em soluhouse.com.br> escreveu:
>
> Tem gente votando em 2 lugares, nesse caso devemos computar meio voto para
> cada lugar?
>
> Por enquanto, Heavy Duty ganhando com 4 votos: eu, Fernando, MDA, e Breno.
>
>
> > Eu gostei da idéia do cortiço, também nunca fui e acho que será uma
> > boa, mas como o último encontro foi em laranjeiras seria bom
> > variarmos! Mercadinho é o ponto de encontro canônico da Rio-PM então
> > não precisamos nos preocupar pois cedo ou tarde acabamos voltando pra
> > lá mesmo ;-)
> >
> > Por isso, heavyduty++;
> >
> > Como está a contagem? Estou impondo limite de votos para esse sábado,
> > hein? Dêem sua opinião logo para podermos fechar e divulgar!
> >
> >
> > []s
> >
> > -b
> >
> >
> > On 7/5/07, AlexanDER Franca <alexander em nautae.eti.br> wrote:
> >> Também falei muito e não fui no último encontro. Se for no Mercadinho
> ou
> >> Cortiço (nunca fui no Cortiço, apenas conheço de fama, ok?), vou
> >> garantido
> >> desta vez. ++mercadinho ++cortiço []'s AlexanDER
> >> _______________________________________________
> >> 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20070705/983c9281/attachment.html