<div dir="ltr">Vamos deixar ainda mais interessante e fazer ele baixar o historico da internet...<div>E fazer ele aceitar:</div><div>nome++<br>(nome completo do cara)++</div><div>nome++;</div><div>(nome completo do cara)++;</div>
<div>nome++ # qq comentario<br></div><div>(nome completo do cara)++ # qq comentario</div><div><div>nome++; # qq comentario<br></div><div>(nome completo do cara)++; # qq comentario</div><div><br></div><div>algo tipo:</div>
<div><br></div><div>/^ (\w+ | \( (?:\w+ \s* )+? \) )( [+-]{2} ) \s* ; \s* (?: # \w* )$/x</div><div><br></div><div>e ele aceitar ++ e --, tipo se ele encontra</div><div><br></div><div>alguem++</div><div>alguem++<br></div><div>
alguem--<br></div><div>alguem++<br></div><div>alguem--<br></div><div>alguem++<br></div><div><br></div><div>no fim ele imprimiria:&nbsp;</div><div>alguem: 2 (++ 4 | -- 2)</div><div><br></div><div>q tal?</div><div><br></div><div>
<br></div><div><br></div><br><div class="gmail_quote">2008/9/11 Eden Cardim <span dir="ltr">&lt;<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
2008/9/11 Fernando Oliveira &lt;<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>&gt;:<br>
<div class="Ih2E3d">&gt; Já tá na hora do golf? :)<br>
<br>
</div>Pra ficar mais interessante, além de contar o karma, mostrar os<br>
resultados em ordem descendente por quantidade de karma. O arquivo de<br>
histórico da lista é passado como argumento.<br>
<br>
Lá vai a tacada inicial:<br>
<br>
perl -pe&#39;$k{$_}++for/(\S+)\+\+/g}{$_=join&quot;\n&quot;,map{&quot;$_ = $k{$_}&quot;} map {<br>
$_-&gt;[1] } sort {$b-&gt;[0] &lt;=&gt; $a-&gt;[0]} map { [$k{$_}, $_] } keys%k&#39;<br>
2008.txt<br>
<font color="#888888"><br>
--<br>
<a href="http://edenc.vox.com" target="_blank">edenc.vox.com</a><br>
</font><div><div></div><div class="Wj3C7c">_______________________________________________<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" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>
</div></div>