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 <creakt...@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@pm.org http://mail.pm.org/mailman/listinfo/rio-pm
