<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,"<2008q3.txt");<br>my @arquivo = <ARQ>;<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 "$_ = $hash{$_}\n" for keys %hash<br clear="all"><br>-- <br>Daniel de Oliveira Mantovani<br>"A sede pelo aprendizado é insaciável"<br>
<a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>------------------------------------------------------------<br>
</div>