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