[Rio-pm] Tratamento de dados para CSV

[Fernando Oliveira]

perl -F\; -lanE'$,=";";++$m{$F[0]}{$F[1]}}{say
X=>keys%m;say$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt



Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 Fernando Oliveira <fernandocorrea em gmail.com>

> perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{say join";",X=>keys%m;say
> join";",$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120601/b44da78f/attachment.html>