Bom, nova tacada, voltando aos requisitos originais:<br clear="all"><br><div>#!perl -ln</div><div>/;/;$,=$&;$l{$'}//=$i++;$c{$`}[$l{$'}]=1}{print X=>keys%l;print $_,@{$c{$_}}[values%l]for keys%c</div><br>Just another Perl Hacker,<br>
Fernando (SmokeMachine)<br>
<br><br><div class="gmail_quote">Em 1 de junho de 2012 14:54, Manoel Domingues Junior <span dir="ltr"><<a href="mailto:manoel.domingues.junior@gmail.com" target="_blank">manoel.domingues.junior@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Eu ainda estou testando todas as alternativas dadas e tentando entender algumas...rsrs<br><br>Em tese, a primeira coluna e primeira linha não tem relação uma com as outras, ou seja, os dados podem se repetir ou não...<br>
<br>
Estava pensando em usar o Text::CSV para adicionar um elemento (no caso "1") na posicao $1 $2, onde:<br><br>($a0,$a1) = (Manoel,João)<br><br>Se der erro, vejo se a coluna existe, se existir adiciono a linha, senão existir adiciono a coluna...<br>
<br>Acho que assim vai... estou testando...<br><br>Abraços,<br><br><div class="gmail_quote">Em 1 de junho de 2012 14:45, Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>></span> escreveu:<div>
<div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Se a segunda coluna tiver mais elementos inexistentes na 1a, esses não aparecem.<br clear="all">Continuamos assim? ou voltamos do inicio?<div>
<div><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">
Mas e então? O arquivo foi aceito?<br clear="all"><br>E tem mais uma coisa: desde a 1a tacada do Stanislaw, se os elementos de antes do ";" forem diferentes do de depois, a tabela fica errada...<div>
<div><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">
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><div><br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br></div><div><div><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>
<div><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" 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></div>
</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></div></div><br><br clear="all"><div class="HOEnZb"><div class="h5"><br>-- <br>--<br>
Manoel Domingues Junior<br>"Coletar dados é o primeiro passo para a sabedoria, mas compartilhar dados é o primeiro passo para a comunidade."<br>
IBM - Prodigy Linux<br><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>