
<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body dir="auto">

<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>

<div id="divtagdefaultwrapper" 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+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>

<hr style="display:inline-block;width:98%" tabindex="-1">

<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>From:</b> Rio-pm <rio-pm-bounces+guedes_1000=hotmail.com@pm.org> on behalf of Fernando Oliveira <fernandocorrea@gmail.com><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>

<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+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">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+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">lucasmateus.oliveira@gmail.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+TM+TM+TM" | xargs perl -MList::Util=uniq -MDDP -e '@a=uniq(split(/\+/,$ARGV[0]));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_-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+<wbr>TM+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">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>

</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>

</div>

</blockquote>

</div>

</body>

</html>