#!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