[Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

#!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/3b6b80d8/attachment.html>