<div dir="ltr"><br><br><div class="gmail_quote">2008/9/11 breno <span dir="ltr">&lt;<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Ué, não entendi... aqui deu pra ler direitinho =P<br>
<br>
[garu@bebop]$ perl -ne<br>
<div class="Ih2E3d">&#39;$k{lc($_)}++for/(\w+)\)?\+\+/g}{print&quot;$_=$k{$_}\n&quot;for(sort{$k{$b}&lt;=&gt;$k{$a}}keys%k)&#39;<br>
2008q3.txt<br>
</div>nome=12<br>
alguem=12<br>
cara=12<br>
oft=8<br>
mm=7<br>
breno=6<br>
mda=5<br>
ns=5<br>
fernando=3<br>
solli=2<br>
limpo=1<br>
ferreira=1<br>
c=1<br>
buss=1<br>
astec=1<br>
[garu@bebop]$<br>
<br>
<br>
Mais legal foi o C ganhar ponto também (C++) =P</blockquote><div>Exatamente por isso q eu tava pensando em ele só aceitar qdo existir uma linha só p/ o nome++...</div><div>pq senão, qq coisa++ (coisa ganhou 1) vai poder &quot;gerar karma&quot;!</div>
<div>e normalmente agente sempre põe os++ (agora quem ganhou foi o &quot;os&quot; (qual será q é o OS?)) numa linha separada...</div><div>Entenderam?</div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<br>
<br>
<br>
[]s<br>
<br>
-b<br>
<br>
2008/9/11 Eden Cardim &lt;<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>&gt;:<br>
<div><div></div><div class="Wj3C7c">&gt; 2008/9/11 breno &lt;<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>&gt;:<br>
&gt;&gt; Acho q vcs tão é enrolando uhahuahuhuauhahua =P<br>
&gt;&gt;<br>
&gt;&gt; pegar o histórico da Internet vai acabar em quase o mesmo código (pra<br>
&gt;&gt; quem não der mole), e a ER precisa só achar o /usuário\+\+/ (com ou<br>
&gt;&gt; sem parêntesis, nisso o Fernando tá coberto de razão), não precisa se<br>
&gt;&gt; preocupar com o que vem depois... Se quiserem adicionar o &quot;--&quot;, tudo<br>
&gt;&gt; bem, mas nunca vi alguém levar um por aqui (o pessoal é diplomata e<br>
&gt;&gt; tem fair-play) =P<br>
&gt;&gt;<br>
&gt;&gt; Por mim, o Eden tá ganhando com 110 caracteres... ou está?<br>
&gt;&gt;<br>
&gt;&gt; Minha tacada:<br>
&gt;&gt;<br>
&gt;&gt; perl -ne &#39;$k{lc($_)}++for/(\w+)\)?\+\+/g}{print&quot;$_=$k{$_}\n&quot;for(sort{$k{$b}&lt;=&gt;$k{$a}}keys%k)&#39;<br>
&gt;&gt; 2008q3.txt<br>
&gt;&gt;<br>
&gt;&gt; 82 caracteres, e acho que dá uma resposta até mais correta... alguém diminui?<br>
&gt;<br>
&gt; Precisa dos espaços na saída, senão fica ilegível :P<br>
&gt;<br>
&gt; --<br>
&gt; <a href="http://edenc.vox.com" target="_blank">edenc.vox.com</a><br>
&gt; _______________________________________________<br>
&gt; Rio-pm mailing list<br>
&gt; <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
&gt; <a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
&gt;<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" 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>