perl -F\; -anE'chomp$F[1];++$m{$F[0]}{$F[1]}}{$,=";";say X=>@a=keys%m;say
$_,@{$m{$_}}{@a}for@a' tabela.txtJust another Perl Hacker, Fernando (SmokeMachine) Em 1 de junho de 2012 13:03, Stanislaw Pusep <[email protected]> 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 [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
