pq chomp?
perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";say X=>@a=keys%m;say
$_,@{$m{$_}}{@a}for@a' tabela.txt
[]s
-b
On Fri, Jun 1, 2012 at 1:09 PM, Fernando Oliveira
<fernandocor...@gmail.com> wrote:
> perl -F\; -anE'chomp$F[1];++$m{$F[0]}{$F[1]}}{$,=";";say X=>@a=keys%m;say
> $_,@{$m{$_}}{@a}for@a' tabela.txt
>
>
>
>
> Just another Perl Hacker,
> Fernando (SmokeMachine)
>
>
> Em 1 de junho de 2012 13:03, Stanislaw Pusep <creakt...@gmail.com> escreveu:
>
>> perl -F\; -anE'chomp$F[1];++$m{$F[0]}{$F[1]}}{$,=";";say X=>keys%m;say
>> $_,@{$m{$_}}{keys%m}for keys%m' 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
