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

<br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br><div class="gmail_quote">2012/6/1 Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

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