Mas é claro!<br clear="all"><br>perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";say X=>keys%m;say $_,@{$m{$_}}{keys%m}for keys%m' tabela.txt<div><br>ABS()<br><br>
<br><br><div class="gmail_quote">On Fri, Jun 1, 2012 at 1:03 PM, Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>></span> wrote:<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> <div class="im"><br clear="all"><br><br>



<br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br></div><div class="gmail_quote">Em 1 de junho de 2012 13:00, Stanislaw Pusep <span dir="ltr"><<a href="mailto:creaktive@gmail.com" target="_blank">creaktive@gmail.com</a>></span> escreveu:<div class="im"><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 join";",X=>keys%m;say join";",$_,@{$m{$_}}{keys%m}for keys%m' tabela.txt</div></blockquote></div></div><br>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br></div>