[Rio-pm] Tratamento de dados para CSV

[Marco Lima]

$c{$`}[$l{$'}//=$i++]=/;/;$,=$&;}{say
X=>keys%l;say$_,@{$c{$_}}[values%l]for keys%c

=P

Marco Lima
braun.lima em gmail.com
im:mago em jabber-br.org

Register Linux User #483170
Slackware Linux, for the subgenius

"Aquele que pensa que é demasiado grande para fazer trabalhos pequenos
é talvez demasiado pequeno para realizar grandes trabalhos."

"Ter acesso ao conhecimento é um dever de todos; transmitir
conhecimento é um dever de quem tem."

"Na visão do hacker, o sentido da vida está em dedicar-se a uma
paixão. Esta paixão é, na realidade, uma atividade significativa,
inspiradora e prazerosa para o indivíduo, seja ela rotulada como
"trabalho" ou como "diversão."

"Ninguém é tão grande que não possa aprender, e nem tão pequeno que
não possa ensinar"

"Compartilhe o seu conhecimento. É uma maneira de alcançar a imortalidade"


2012/6/1 Fernando Oliveira <fernandocorrea em gmail.com>:
> 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 <fernandocorrea em 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 <fernandocorrea em 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 <fernandocorrea em 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 em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm