[Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

#!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/50cfb321/attachment.html>