[Rio-pm] Tratamento de dados para CSV

Fernando Oliveira fernandocorrea em gmail.com
Sexta Junho 1 14:47:12 PDT 2012


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
>>
>>
>>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120601/5b6b7cbe/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm