[SP-pm] Quem tem mais incremento em 2008 em sampa???

Daniel de Oliveira Mantovani daniel.oliveira.mantovani at gmail.com
Wed Sep 10 23:23:49 PDT 2008


Luiz falei que quando acabava o desafio postava na lista.
O Eden *.* e o Blabos me ajudaram.
wget http://mail.pm.org/pipermail/saopaulo-pm/2008.txt

#!/usr/bin/perl

use strict;
use warnings;
open(ARQ,"<2008.txt");
my @arquivo = <ARQ>;
my @more = ();
foreach (@arquivo){
my @more = unshift(@more,$1) if $_=~ /(\w{4,}\S+)\+\+/g
}
for (0 .. scalar(@more) -1){
$more[$_] =~ s/\s.*//
}
my %hash;
$hash{$_}++ for @more;
print "$_ = $hash{$_}\n" for keys %hash

Cambada de cuecas meninas 19.
Meninas estão ganhando meninas++
-- 
Daniel de Oliveira Mantovani
"A sede pelo aprendizado é insaciável"
http://mantovanihouse.blogspot.com/
------------------------------------------------------------
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20080911/7e228c71/attachment.html>


More information about the SaoPaulo-pm mailing list