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