<html><head></head><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px"><div><span>Falta o chomp:</span></div><div dir="ltr" id="yui_3_16_0_ym19_1_1488399262217_339615"><span id="yui_3_16_0_ym19_1_1488399262217_339614">echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -MList::Util='uniq' -MDDP -ne '@a = split (/\+/, $_); chomp @a; @b = uniq (@a); print "\n"; p @b'<br></span></div> <div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"><font size="2" face="Arial"> Em Domingo, 5 de Março de 2017 11:59, Fernando Oliveira <fernandocorrea@gmail.com> escreveu:<br></font></div> <br><br> <div class="y_msg_container"><div id="yiv5459486452"><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 clear="none"><blockquote type="cite"><div dir="ltr"><font color="#000000"><span style="">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 clear="none">Enviado do meu iPhone</div><div><br clear="none">Em 5 de mar de 2017, às 13:51, Lucas Mateus <<a rel="nofollow" shape="rect" ymailto="mailto:lucasmateus.oliveira@gmail.com" target="_blank" href="mailto:lucasmateus.oliveira@gmail.com">lucasmateus.oliveira@gmail.com</a>> escreveu:<br clear="none"><br clear="none"></div><div class="yiv5459486452yqt3900926169" id="yiv5459486452yqt03030"><blockquote type="cite"><div><div dir="ltr">É algum bug no código<div><br clear="none"></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 clear="none"></div></div><div class="yiv5459486452gmail_extra"><br clear="none"><div class="yiv5459486452gmail_quote">Em 5 de março de 2017 13:35, Aureliano Guedes <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:guedes_1000@hotmail.com" target="_blank" href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span> escreveu:<br clear="none"><blockquote class="yiv5459486452gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div dir="ltr">
<div dir="ltr" id="yiv5459486452m_-8789813169282828972divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri, Arial, Helvetica, sans-serif;">
<div>Ola,</div>
<div>Caros Monges.<br clear="none">
<br clear="none">
Estou com uma pequena dúvida.<br clear="none">
Estou usando a função uniq (List::Util e List::MoreUtils) para reduzir a redundância de um array.</div>
<div><br clear="none">
</div>
<div><span>echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+ TM+TM+TM" | perl -MList::Util='uniq' -MDDP -ne '@a = uniq (split (/\+/, $_)); print "\n"; p @a; print "\n"'</span><br clear="none">
</div>
<div><span><br clear="none">
</span></div>
<div>Separa os elementos pelo '+' e depois remove a redundância. Acontece que o ultimo elemento for redundante ele não é eliminado.<br clear="none">
<br clear="none">
Alguém sabe o porque disso??<br clear="none">
<br clear="none">
Alguma sujestão de como reverter sem q eu tenha que criar um script pra isso ou minha propria rotina uniq??<br clear="none">
<br clear="none">
Desde já grato.</div>
</div>
</div>
<br clear="none">______________________________ _________________<br clear="none">
Rio-pm mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:Rio-pm@pm.org" target="_blank" href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/ listinfo/rio-pm</a><br clear="none"></blockquote></div><br clear="none"></div>
</div></blockquote></div><blockquote type="cite"><div><span>_______________________________________________</span><br clear="none"><span>Rio-pm mailing list</span><br clear="none"><span><a rel="nofollow" shape="rect" ymailto="mailto:Rio-pm@pm.org" target="_blank" href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a></span><br clear="none"><span><a rel="nofollow" shape="rect" target="_blank" href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a></span></div></blockquote></div></div><br><div class="yqt3900926169" id="yqt40048">_______________________________________________<br clear="none">Rio-pm mailing list<br clear="none"><a shape="rect" ymailto="mailto:Rio-pm@pm.org" href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br clear="none"><a shape="rect" href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div><br><br></div> </div> </div> </div></div></body></html>