se vc usarem a sintax /^($lugar)++\s*(#.*)?$/ o contador de karma pode ajudar a contar os votos...<br><br>segue o karma.pl<br><br><code><br>use WWW::Mechanize;<br>use IO::Uncompress::Gunzip;<br><br>my $m = WWW::Mechanize->new; my %hash;
<br>$m->get("<a href="http://mail.pm.org/pipermail/$ARGV[0]-pm/">http://mail.pm.org/pipermail/$ARGV[0]-pm/</a>");<br>my @links = $m->find_all_links( url_regex => qr#\d{4}-\w+.txt(:?\.gz)?#, );<br>for my $link (@links) {
<br> my $data2;<br> my $data = $m->get( $link->url_abs )->content; <br> my $z = new IO::Uncompress::Gunzip \$data; <br> $z->read($data2) if $link->url_abs =~ /\.gz$/;<br> for my $a ( split m#$/#, $data2 ? $data2 : $data ) {
<br> eval "\$hash{" . lc $1 . "}$2"<br> if $a =~ /^\s*\(?([\w-]+)\)?((:?\+|-){2})\s*(#.*)?$/;<br> }<br>}<br>print "$_ => $hash{$_}$/" for keys %hash;<br></code><br><br>
<div><span class="gmail_quote">Em 05/07/07, <b class="gmail_sendername">Eduardo Maia</b> <<a href="mailto:maia@soluhouse.com.br">maia@soluhouse.com.br</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Tem gente votando em 2 lugares, nesse caso devemos computar meio voto para<br>cada lugar?<br><br>Por enquanto, Heavy Duty ganhando com 4 votos: eu, Fernando, MDA, e Breno.<br><br><br>> Eu gostei da idéia do cortiço, também nunca fui e acho que será uma
<br>> boa, mas como o último encontro foi em laranjeiras seria bom<br>> variarmos! Mercadinho é o ponto de encontro canônico da Rio-PM então<br>> não precisamos nos preocupar pois cedo ou tarde acabamos voltando pra
<br>> lá mesmo ;-)<br>><br>> Por isso, heavyduty++;<br>><br>> Como está a contagem? Estou impondo limite de votos para esse sábado,<br>> hein? Dêem sua opinião logo para podermos fechar e divulgar!<br>>
<br>><br>> []s<br>><br>> -b<br>><br>><br>> On 7/5/07, AlexanDER Franca <<a href="mailto:alexander@nautae.eti.br">alexander@nautae.eti.br</a>> wrote:<br>>> Também falei muito e não fui no último encontro. Se for no Mercadinho ou
<br>>> Cortiço (nunca fui no Cortiço, apenas conheço de fama, ok?), vou<br>>> garantido<br>>> desta vez. ++mercadinho ++cortiço []'s AlexanDER<br>>> _______________________________________________
<br>>> Rio-pm mailing list<br>>> <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>>> <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>>><br>
> _______________________________________________<br>> Rio-pm mailing list<br>> <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm
</a><br>><br><br>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm
</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando