<span style>perl -F\; -anE'chomp$F[1];++$m{$F[0]}{$</span><span style>F[1]}}{$,=";";say X=>@a=keys%m;say $_,@{$m{$_}}{@a}for@a' tabela.txt</span> <br clear="all"><br><br><br>Just another Perl Hacker,<br>

Fernando (SmokeMachine)<br>
<br><br><div class="gmail_quote">Em 1 de junho de 2012 13:03, Stanislaw Pusep <span dir="ltr"><<a href="mailto:creaktive@gmail.com" target="_blank">creaktive@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div>perl -F\; -anE'chomp$F[1];++$m{$F[0]}{$F[1]}}{$,=";";say X=>keys%m;say $_,@{$m{$_}}{keys%m}for keys%m' tabela.txt</div></blockquote></div><br>