<div dir="ltr">Quem tem mais incremento em 2008 ?!?!<br>hehe<br>O Fernando me passou um desafio para ver quantos ++ cada um tem, o Eden^^ e o Blabos^^ me ajudaram.<br>wget <a href="http://mail.pm.org/pipermail/rio-pm/2008q3.txt">http://mail.pm.org/pipermail/rio-pm/2008q3.txt</a><br>
<br>depois<br><br>#!/usr/bin/perl<br><br>use strict;<br>use warnings;<br>open(ARQ,&quot;&lt;2008q3.txt&quot;);<br>my @arquivo = &lt;ARQ&gt;;<br>my @more = ();<br>foreach (@arquivo){<br>my @more = unshift(@more,$1) if $_=~ /(\w{4,}\S+)\+\+/g<br>
}<br>for (0 .. scalar(@more) -1){<br>$more[$_] =~ s/\s.*//<br>}<br>my %hash;<br>$hash{$_}++ for @more;<br>print &quot;$_ = $hash{$_}\n&quot; for keys %hash<br clear="all"><br>-- <br>Daniel de Oliveira Mantovani<br>&quot;A sede pelo aprendizado é insaciável&quot;<br>
<a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>------------------------------------------------------------<br>
</div>