[Rio-pm] Tratamento de dados para CSV

[Stanislaw Pusep]

Mas é claro!

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

ABS()



On Fri, Jun 1, 2012 at 1:03 PM, Fernando Oliveira
<fernandocorrea em gmail.com>wrote:

> perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{say join";",X=>keys%m;say
> join";",$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt
>
>
>
>
> Just another Perl Hacker,
> Fernando (SmokeMachine)
>
>
> Em 1 de junho de 2012 13:00, Stanislaw Pusep <creaktive em gmail.com>escreveu:
>
>  perl -F\; -anE'chomp$F[1];++$m{$F[0]}{$F[1]}}{say join";",X=>keys%m;say
>> join";",$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt
>>
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120601/d1c38755/attachment.html>