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 <[email protected]>
> #!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 <[email protected]>
>
>> #!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
>> <[email protected]>escreveu:
>>
>>> /;/;$,=>amp;;$l{
>>> }//=$i++;$c{[$l{}]=1}{print X=>keys%l;print
>>> $_,@{$c{$_}}[values%l]for keys%c
>>
>>
>>
>
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
