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