<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto"><div><br><br>Enviado do meu iPhone</div><div><br>Em 5 de mar de 2017, às 17:19, Gabriel Vieira <<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com</a>> escreveu:<br><br></div><blockquote type="cite"><div><div dir="ltr">GOLF?!!!!??!?!?! \o/<div><br></div><div><br></div><div>NÃO RETORNA NECESSARIAMENTE NA ORDEM ENCONTRADA (76 chars)</div><div><div>echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM"|perl -nE'@x{/\w+/g}++;say keys%x'</div></div></div></div></blockquote><a href="https://glot.io/snippets/enq3cdjqa5">https://glot.io/snippets/enq3cdjqa5</a><br><blockquote type="cite"><div><div dir="ltr"><div><div><br></div><div>MANTÉM A ORDEM (76 chars)</div><div>echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM"|perl -nE'$x{$_}++||say for/\w+/g'</div></div></div></div></blockquote><a href="https://glot.io/snippets/enq3dys5ew">https://glot.io/snippets/enq3dys5ew</a><br><blockquote type="cite"><div><div class="gmail_extra"><br><div class="gmail_quote">2017-03-05 12:43 GMT-05:00 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="auto">
<div id="m_69786640965022847divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Arial,Helvetica,sans-serif" dir="ltr">
<p>Obrigado, era so o chomp mesmo.<br>
<br>
Perl6 é interessante mas pra agora não seria ideal.<br>
A solução com array seria a melhor talvez, mas ate tentei</p>
<p><br>
<span>echo "WXG+WXG+PT-COG5412+Tox-SHH+<wbr>TM+TM+TM+TM" | perl -MDDP -nE 'foreach(split /\+/){$a{$_}++}; p %a'</span><br>
</p>
<p><span><br>
</span></p>
<p><span>Mas deu problema que fiquei com preguissa de tratar. saiu linha em branco e a ultima repetição.<br>
<br>
Obrigado monges</span></p>
<p><span><br></span></p><div class="hm HOEnZb">
</div><p></p><div class="hm HOEnZb">
</div></div><div class="hm HOEnZb">
<hr style="display:inline-block;width:98%">
<div id="m_69786640965022847divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>From:</b> Rio-pm <rio-pm-bounces+guedes_1000=<a href="mailto:hotmail.com@pm.org" target="_blank">ho<wbr>tmail.com@pm.org</a>> on behalf of Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>><br>
<b>Sent:</b> Sunday, March 5, 2017 5:15:08 PM<br>
<b>To:</b> Perl Mongers Rio de Janeiro<br>
<b>Subject:</b> Re: [Rio-pm] Função uniq com bug ou erro no codigo?</font>
<div> </div>
</div></div><div><div class="h5">
<div>
<div>
<blockquote type="cite">
<blockquote type="cite">
<div dir="ltr"><font color="#000000"><span style="background-color:rgba(255,255,255,0)">echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+<wbr>TM+TM+TM" | perl6 -n 'say set .split: "+"'</span></font></div>
</blockquote>
</blockquote>
<br>
Enviado do meu iPhone</div>
<div><br>
Em 5 de mar de 2017, às 13:59, Fernando Oliveira <<a href="mailto:fernandocorrea@gmail.com" target="_blank">fernandocorrea@gmail.com</a>> escreveu:<br>
<br>
</div>
<blockquote type="cite">
<div>
<div>Eu não sei qual é o problema, mas tenho uma sugestão de solução (código não testado, tô no celular):<br>
<blockquote type="cite">
<div dir="ltr"><font color="#000000"><span style="background-color:rgba(255,255,255,0)">echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+<wbr>TM+TM+TM" | perl -nE '%a{split "+"}++; say keys %a}'</span></font></div>
</blockquote>
<br>
Enviado do meu iPhone</div>
<div><br>
Em 5 de mar de 2017, às 13:51, Lucas Mateus <<a href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">lucasmateus.oliveira@gmail.<wbr>com</a>> escreveu:<br>
<br>
</div>
<blockquote type="cite">
<div>
<div dir="ltr">É algum bug no código
<div><br>
</div>
<div>echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+<wbr>TM+TM+TM" | xargs perl -MList::Util=uniq -MDDP -e '@a=uniq(split(/\+/,$ARGV[0]))<wbr>;p @a'<br>
</div>
</div>
<div class="gmail_extra"><br>
<div class="gmail_quote">Em 5 de março de 2017 13:35, Aureliano Guedes <span dir="ltr">
<<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">
<div id="m_69786640965022847m_-8789813169282828972divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Arial,Helvetica,sans-serif" dir="ltr">
<p>Ola,</p>
<p>Caros Monges.<br>
<br>
Estou com uma pequena dúvida.<br>
Estou usando a função uniq (List::Util e List::MoreUtils) para reduzir a redundância de um array.</p>
<p><br>
</p>
<p><span>echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM<wbr>+TM+TM" | perl -MList::Util='uniq' -MDDP -ne '@a = uniq (split (/\+/, $_)); print "\n"; p @a; print "\n"'</span><br>
</p>
<p><span><br>
</span></p>
<p>Separa os elementos pelo '+' e depois remove a redundância. Acontece que o ultimo elemento for redundante ele não é eliminado.<br>
<br>
Alguém sabe o porque disso??<br>
<br>
Alguma sujestão de como reverter sem q eu tenha que criar um script pra isso ou minha propria rotina uniq??<br>
<br>
Desde já grato.</p>
</div>
</div>
<br>
______________________________<wbr>_________________<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" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/lis<wbr>tinfo/rio-pm</a><br>
</blockquote>
</div>
<br>
</div>
</div>
</blockquote>
<blockquote type="cite">
<div><span>______________________________<wbr>_________________</span><br>
<span>Rio-pm mailing list</span><br>
<span><a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a></span><br>
<span><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/<wbr>listinfo/rio-pm</a></span></div>
</blockquote>
</div>
</blockquote>
</div>
</div></div></div>
<br>______________________________<wbr>_________________<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" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/<wbr>listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature">Gabriel Vieira</div>
</div>
</div></blockquote><blockquote type="cite"><div><span>_______________________________________________</span><br><span>Rio-pm mailing list</span><br><span><a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a></span><br><span><a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a></span></div></blockquote></body></html>