perl -lnE'/;/;$,=$&++$m{$`}{$ยด}}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a'
tabela.txt
Just another Perl Hacker,
Fernando (SmokeMachine)
2012/6/1 breno <br...@rio.pm.org>
> perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";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
