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