perl -lnE'/;/;$,=$&;++$m{$`}{$´}}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a'
tabela.txt
tinha esquecido o ";"
Just another Perl Hacker,
Fernando (SmokeMachine)
2012/6/1 Fernando Oliveira <fernandocor...@gmail.com>
> perl -lnE'/;/;$,=$&++$m{$`}{$´}}{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
