$c{$`}[$l{$'}//=$i++]=/;/;$,=$&;}{say X=>keys%l;say$_,@{$c{$_}}[values%l]for keys%c
=P Marco Lima braun.l...@gmail.com im:m...@jabber-br.org Register Linux User #483170 Slackware Linux, for the subgenius "Aquele que pensa que é demasiado grande para fazer trabalhos pequenos é talvez demasiado pequeno para realizar grandes trabalhos." "Ter acesso ao conhecimento é um dever de todos; transmitir conhecimento é um dever de quem tem." "Na visão do hacker, o sentido da vida está em dedicar-se a uma paixão. Esta paixão é, na realidade, uma atividade significativa, inspiradora e prazerosa para o indivíduo, seja ela rotulada como "trabalho" ou como "diversão." "Ninguém é tão grande que não possa aprender, e nem tão pequeno que não possa ensinar" "Compartilhe o seu conhecimento. É uma maneira de alcançar a imortalidade" 2012/6/1 Fernando Oliveira <fernandocor...@gmail.com>: > Menor: > > #!perl -ln > $c{$`}[$l{$'}//=$i++]=/;/;$,=$&;}{print > X=>keys%l;print$_,@{$c{$_}}[values%l]for keys%c > > > Just another Perl Hacker, > Fernando (SmokeMachine) > > > 2012/6/1 Fernando Oliveira <fernandocor...@gmail.com> >> >> #!perl -ln >> /;/;$c{$`}[$l{$'}//=$i++]=1;$,=$&;}{print >> X=>keys%l;print$_,@{$c{$_}}[values%l]for keys%c >> >> >> >> Just another Perl Hacker, >> Fernando (SmokeMachine) >> >> >> 2012/6/1 Fernando Oliveira <fernandocor...@gmail.com> >>> >>> #!perl -ln >>> /;/;$,=$&;$l{$'}//=$i++;$c{$`}[$l{$'}]=1}{print >>> X=>keys%l;print$_,@{$c{$_}}[0..$i]for keys%c >>> >>> >>> >>> Just another Perl Hacker, >>> Fernando (SmokeMachine) >>> >>> >>> Em 1 de junho de 2012 15:06, Fernando Oliveira <fernandocor...@gmail.com> >>> escreveu: >>>> >>>> /;/;$,=>amp;;$l{ >>>> }//=$i++;$c{[$l{}]=1}{print X=>keys%l;print >>>> $_,@{$c{$_}}[values%l]for keys%c >>> >>> >> > > > _______________________________________________ > Rio-pm mailing list > Rio-pm@pm.org > http://mail.pm.org/mailman/listinfo/rio-pm _______________________________________________ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm