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

Responder a