Então façamos como arquivo:<div><br></div><div><div>#!perl -ln</div><div>$m{$`}{$'}=/;/;$,=$&}{print X=>@a=keys%m;print$_,@{$m{$_}}{@a}for@a</div><br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>


<br><br><div class="gmail_quote">2012/6/1 Stanislaw Pusep <span dir="ltr"><<a href="mailto:creaktive@gmail.com" target="_blank">creaktive@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div>Em bash, pelo menos, teria que rodar como:</div><div><br></div>perl -MEnglish -lnE'$m{$`}{$POSTMATCH}=/;/;$,=$&}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt<br clear="all"><br>ABS()<div class="HOEnZb">

<div class="h5"><br><br>
<br><br><div class="gmail_quote">On Fri, Jun 1, 2012 at 1:31 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">



<div>C:\>perl -lnE"$m{$`}{$'}=/;/;$,=$&}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a" tabela.txt</div><div><br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br></div><div><div><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">

bom... aqui no windows funfa... :P<br clear="all">no windows eu to usando o "" no -e...<div><div><br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br><div class="gmail_quote">2012/6/1 breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org" target="_blank">breno@rio.pm.org</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">






Ha! Alguém consegue usar $' na shell sem escapar?<div><div><br><br><br><div class="gmail_quote">On Fri, Jun 1, 2012 at 1:24 PM, Stanislaw Pusep <span dir="ltr"><<a href="mailto:creaktive@gmail.com" target="_blank">creaktive@gmail.com</a>></span> wrote:<br>







<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">C:\> :(<br clear="all"><br>ABS()<br><br>
<br><br><div class="gmail_quote"><div><div>On Fri, Jun 1, 2012 at 1:23 PM, Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>></span> wrote:<br>







</div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div>

<div>C:\>perl -lnE"/;/;$,=$&;++$m{$`}{$'}}{say X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a" tabela.txt</div><div>X;Joao;Pedro;Manoel</div><div>Joao;;1;</div><div>Pedro;;;1</div><div>Manoel;;1;</div><div>









<br><br>

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











<div><div>perl -F\; -lanE'++$m{$F[0]}{$F[1]}}{$,=";";say</div><div><div><img></div></div><div><div><br>
</div><div>X=>@a=keys%m;say$_,@{$m{$_}}{@a}for@a' tabela.txt</div></div></div></blockquote></div><br>
<br></div></div><div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">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></div></blockquote></div><br>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">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></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">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></div></blockquote></div><br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">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></div><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>