C:\> :(
ABS()
On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira
<fernandocor...@gmail.com>wrote:
> 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 <br...@rio.pm.org>
>
>> perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";say
>>
>> X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt
>>
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm@pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
