[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