<br><br><div><span class="gmail_quote">On 04/03/2008, <b class="gmail_sendername">breno</b> <<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Claro que valeu! Agora foi a sua vez de ler a minha mente com o -E...<br> <br> []s<br> <br> -b (botando um cone de papel alumínio na cabeça)<br> <br><br> 2008/3/4 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br>
> bom, eu tenho...<br> ><br> ><br> ><br> > Em 04/03/08, Adriano Ferreira <<a href="mailto:a.r.ferreira@gmail.com">a.r.ferreira@gmail.com</a>> escreveu:<br> > > 2008/3/4 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br>
> ><br> > > > vcs me desculpem, mas eu vou apelar...<br> > > ><br> > > > perl -E 'say grep!$h{$_}++,sort<>' lista.txt<br> > > ><br> > > > perl5.10...<br> > ><br>
> ><br> > > Bonito! Eu tinha me esquecido do -E e fiquei imaginando como habilitar<br> > > o 'say' com um mínimo.<br> > ><br> > > Eu acho que valeu. Muito embora quase ninguém tenha o 5.10.0 instalado<br>
> > e em produção ainda.<br> > ><br> > ><br> > > > Em 04/03/08, Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>> escreveu:<br> > > > > <a href="http://perl-e.org">http://perl-e.org</a><br>
> > > ><br> > > > ><br> > > > ><br> > > > ><br> > > > ><br> > > > ><br> > > > > Em 04/03/08, Adriano Ferreira <<a href="mailto:a.r.ferreira@gmail.com">a.r.ferreira@gmail.com</a>> escreveu:<br>
> > > > > 2008/3/4 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br> > > > > ><br> > > > > > > adriano, se importa se eu botar essa sua resposta no meu blog?<br>
> > > > ><br> > > > > ><br> > > > > > Esteja à vontade. Ganhar golf (ou passar perto disso) no Rio-pm é um<br> > > > > > fato histórico para mim. E eu disse "passar perto" porque eu acho<br>
> que<br> > > > > > tem jeito de encolher mais.<br> > > > > ><br> > > > > > Qual a URL de seu blog mesmo?<br> > > > > ><br> > > > > ><br> > > > > > ><br>
> > > > > > Em 04/03/08, Adriano Ferreira <<a href="mailto:a.r.ferreira@gmail.com">a.r.ferreira@gmail.com</a>> escreveu:<br> > > > > > ><br> > > > > > > > 2008/3/4 breno <<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>>:<br>
> > > > > > ><br> > > > > > > > > Boa Adriano!!!! E aí? Quem dá menos???<br> > > > > > > ><br> > > > > > > ><br> > > > > > > > Dá para ordenar primeiro e daí tirar as duplicatas:<br>
> > > > > > ><br> > > > > > > > perl -e 'print grep!$h{$_}++,sort<>'<br> > > > > > > ><br> > > > > > > > -1 caracter<br> > > > > > > ><br>
> > > > > > ><br> > > > > > > > > 2008/3/4 Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>>:<br> > > > > > > > ><br>
> > > > > > > ><br> > > > > > > > > > hahaha!<br> > > > > > > > > ><br> > > > > > > > > ><br> > > > > > > > > ><br>
> > > > > > > > > Em 04/03/08, camila m. <<a href="mailto:misskaapow@gmail.com">misskaapow@gmail.com</a>> escreveu:<br> > > > > > > > > > > hahaha da sua cabeça?!<br>
> > > > > > > > > ><br> > > > > > > > > > > faz que nem naquele filme, coloca um chapéu de papel<br> > > > alumínio! ;)<br> > > > > > > > > > ><br>
> > > > > > > > > ><br> > > > > > > > > > ><br> > > > > > > > > > > On 04/03/2008, Fernando Oliveira<br> > <<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>><br>
> > > wrote:<br> > > > > > > > > > > > Mila, parabéns... mas vc sabe q roubou essa resposta da<br> > > > minha<br> > > > > > > cabeça! (e<br> > > > > > > > > > algumas partes do meu blog! (tipo "}{" duvidam?<br>
> > > > > > > > > <a href="http://perl-e.org/blog/?p=5)">http://perl-e.org/blog/?p=5)</a>)<br> > > > > > > > > > > ><br> > > > > > > > > > > ><br>
> > > > > > > > > > > Em 04/03/08, camila m. <<a href="mailto:misskaapow@gmail.com">misskaapow@gmail.com</a>> escreveu:<br> > > > > > > > > > > ><br>
> > > > > > > > > > > > perl -ne '$a{$_}++}{print sort keys%a'<br> > > > > > > > > > > > ><br> > > > > > > > > > > > > vou pensar em mais outro jeito...<br>
> > > > > > > > > > > ><br> > > > > > > > > > > > ><br> > > > > > > > > > > > ><br> > > > > > > > > > > > > On 04/03/2008, breno <<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>> wrote:<br>
> > > > > > > > > > > > > Salve, pessoal! (Não, sério, salvem sempre...<br> > acabei de<br> > > > > > > perder<br> > > > > > > > > > vários<br>
> > > > > > > > > > > > > arquivos aqui)<br> > > > > > > > > > > > > ><br> > > > > > > > > > > > > > Hoje vieram falar comigo com um código Perl de 11<br>
> > > linhas que<br> > > > > > > recebe<br> > > > > > > > > > um<br> > > > > > > > > > > > > > arquivo no seguinte formato:<br>
> > > > > > > > > > > > ><br> > > > > > > > > > > > > > -------------8<-----------------<br> > > > > > > > > > > > > > palavra1<br>
> > > > > > > > > > > > > palavra2<br> > > > > > > > > > > > > > palavra3<br> > > > > > > > > > > > > > ....<br>
> > > > > > > > > > > > > -------------8<-----------------<br> > > > > > > > > > > > > ><br> > > > > > > > > > > > > > e retorna uma lista com todas as palavras<br>
> ORDENADAMENTE<br> > > > e SEM<br> > > > > > > > > > REPETIÇÕES.<br> > > > > > > > > > > > > ><br> > > > > > > > > > > > > > Daí pensei cá com meus botões... dá pra fazer em 1<br>
> > > linha... e<br> > > > > > > eis<br> > > > > > > > > > que<br> > > > > > > > > > > > > > saiu minha tacada:<br> > > > > > > > > > > > > ><br>
> > > > > > > > > > > > ><br> > > > > > > > > > > > > > perl -ne 'push@a,$_<br> > > > unless$v{$_}++;END{@a=sort@a;print@a}'<br>
> > > > > > lista.txt<br> > > > > > > > > > > > > > lista2.txt ...<br> > > > > > > > > > > > > ><br> > > > > > > > > > > > > ><br>
> > > > > > > > > > > > > 47 caracteres. Mas como não sou um praticante ávido<br> > de<br> > > > Golfe<br> > > > > > > (salve<br> > > > > > > > > > > > > > salve mestre Fernando), tenho certeza que dá pra<br>
> fazer<br> > > > em<br> > > > > > > menos.<br> > > > > > > > > > Notem<br> > > > > > > > > > > > > > que desse jeito, ao contrário do código inicial, é<br>
> > > possível<br> > > > > > > passar<br> > > > > > > > > > > > > > quantos arquivos de lista de palavras tiverem, e<br> > ele<br> > > > vai<br>
> > > > > > ordenar e<br> > > > > > > > > > > > > > remover duplicadas como se tudo fosse um único<br> > > > arquivão.<br> > > > > > > > > > > > > ><br>
> > > > > > > > > > > > > Quem se habilita ao desafio?<br> > > > > > > > > > > > > ><br> > > > > > > > > > > > > > Dica: acho que trabalhando com concatenação de<br>
> strings<br> > > > (ao<br> > > > > > > invés de<br> > > > > > > > > > > > > > push em lista) fica bem menor...<br> > > > > > > > > > > > > ><br>
> > > > > > > > > > > > ><br> > > > > > > > > > > > > > []s<br> > > > > > > > > > > > > ><br> > > > > > > > > > > > > > -b<br>
> > > > > > > > > > > > > _______________________________________________<br> > > > > > > > > > > > > > Rio-pm mailing list<br> > > > > > > > > > > > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
> > > > > > > > > > > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br> > > > > > > > > > > > > ><br>
> > > > > > > > > > > ><br> > > > > > > > > > > > ><br> > > > > > > > > > > > ><br> > > > > > > > > > > > > --<br>
> > > > > > > > > > > > camila m.<br> > > > > > > > > > > > > _______________________________________________<br> > > > > > > > > > > > > Rio-pm mailing list<br>
> > > > > > > > > > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> > > > > > > > > > > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
> > > > > > > > > > > ><br> > > > > > > > > > > ><br> > > > > > > > > > > ><br> > > > > > > > > > > ><br>
> > > > > > > > > > > --<br> > > > > > > > > > > > []'s Fernando<br> > > > > > > > > > > > _______________________________________________<br>
> > > > > > > > > > > Rio-pm mailing list<br> > > > > > > > > > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> > > > > > > > > > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
> > > > > > > > > > ><br> > > > > > > > > > ><br> > > > > > > > > > ><br> > > > > > > > > > ><br>
> > > > > > > > > > --<br> > > > > > > > > > > camila m.<br> > > > > > > > > > > _______________________________________________<br>
> > > > > > > > > > Rio-pm mailing list<br> > > > > > > > > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> > > > > > > > > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
> > > > > > > > > ><br> > > > > > > > > ><br> > > > > > > > > ><br> > > > > > > > > ><br> > > > > > > > > > --<br>
> > > > > > > > > []'s Fernando<br> > > > > > > > > > _______________________________________________<br> > > > > > > > > > Rio-pm mailing list<br>
> > > > > > > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> > > > > > > > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
> > > > > > > > ><br> > > > > > > > > _______________________________________________<br> > > > > > > > > Rio-pm mailing list<br> > > > > > > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
> > > > > > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br> > > > > > > > ><br> > > > > > > > _______________________________________________<br>
> > > > > > > Rio-pm mailing list<br> > > > > > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> > > > > > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
> > > > > > ><br> > > > > > ><br> > > > > > ><br> > > > > > ><br> > > > > > > --<br> > > > > > > []'s Fernando<br>
> > > > > > _______________________________________________<br> > > > > > > Rio-pm mailing list<br> > > > > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
> > > > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br> > > > > > ><br> > > > > > _______________________________________________<br>
> > > > > Rio-pm mailing list<br> > > > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> > > > > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
> > > > ><br> > > > ><br> > > > ><br> > > > ><br> > > > > --<br> > > > > []'s Fernando<br> > > ><br> > > ><br> > > ><br>
> > > --<br> > > > []'s Fernando<br> > > > _______________________________________________<br> > > > Rio-pm mailing list<br> > > > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
> > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br> > > ><br> > > _______________________________________________<br> > > Rio-pm mailing list<br>
> > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> > > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br> > ><br> ><br> ><br> ><br> > --<br>
> []'s Fernando<br> > _______________________________________________<br> > Rio-pm mailing list<br> > <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> > <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
><br> _______________________________________________<br> Rio-pm mailing list<br> <a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br> <a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>camila m.