C:\>perl -lnE"/;/;$,=$&;++$m{$`}{$'}}{say
X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a" tabela.txt
X;Joao;Pedro;Manoel
Joao;;1;
Pedro;;;1
Manoel;;1;



Just another Perl Hacker,
Fernando (SmokeMachine)


2012/6/1 breno <[email protected]>

> perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";say
>
> X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt
>
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm

Responder a