<div dir="ltr"><br>Era pra fazer o que o programa faz, mas agora ele falo que tem que puxar da internet. <br><br>&quot;Cambada de cuecas meninas 19.<br>
Meninas estão ganhando meninas++&quot;<br>Se você executar o programa você vai entender.<br><br>Luiz, você sumiu o que ouve?<br><br>Abraços.<br><div class="gmail_quote">2008/9/11 Luis Motta Campos <span dir="ltr">&lt;<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt;</span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div class="Ih2E3d">Daniel de Oliveira Mantovani wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Luiz falei que quando acabava o desafio postava na lista.<br>
O Eden *.* e o Blabos me ajudaram.<br>
</blockquote>
<br></div>
Eu não me lembro mais o que era para fazer. Será que você não pode me refrescar a memória?<div class="Ih2E3d"><br>
<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
wget <a href="http://mail.pm.org/pipermail/saopaulo-pm/2008.txt" target="_blank">http://mail.pm.org/pipermail/saopaulo-pm/2008.txt</a><br>
<br>
#!/usr/bin/perl<br>
<br>
use strict;<br>
use warnings;<br>
open(ARQ,&quot;&lt;2008.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>
</blockquote>
<br></div>
Códigozinho feio... Eden, por favor corrija os problemas de boas práticas, que o &quot;pupilo&quot; é teu (ele te nomeou no email -- hahaha ;-)<div class="Ih2E3d"><br>
<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Cambada de cuecas meninas 19.<br>
Meninas estão ganhando meninas++<br>
</blockquote>
<br></div>
Isso é estranho... carinha tenta não bater a cabeça antes de escrever mensagens para a lista ;) A gente pode não parecer, mas todo mundo aqui é (aproximadamente) normal...<br>
<br>
Meus parabéns por ter completado o desafio, seja lá o que for... :)<br>
<br>
Putamplexos.<br><font color="#888888">
-- <br>
Luis Motta Campos is a software engineer,<br>
Perl Programmer, foodie and photographer.<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</font></blockquote></div><br><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>