perl -lnE'/;/;$,=$&;++$m{$`}{$´}}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a'
tabela.txttinha esquecido o ";" Just another Perl Hacker, Fernando (SmokeMachine) 2012/6/1 Fernando Oliveira <[email protected]> > perl -lnE'/;/;$,=$&++$m{$`}{$´}}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' > tabela.txt
_______________________________________________ Rio-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
