<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto"><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><meta http-equiv="content-type" content="text/html; charset=utf-8"><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></body></html>