perl -F\; -lanE'$,=";";++$m{$F[0]}{$F[1]}}{say
X=>keys%m;say$_,@{$m{$_}}{keys%m}for keys%m' tabela.txtJust another Perl Hacker, Fernando (SmokeMachine) 2012/6/1 Fernando Oliveira <[email protected]> > perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{say join";",X=>keys%m;say > join";",$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt
_______________________________________________ Rio-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
