
<html>

<head>

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

</head>

<body>

<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>Verdade, um simples chomp; antes do código resolve.<br>

<br>

To enferrujado <br>

<br>

</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 Nicole Scherer <bionica2007-perl@yahoo.com><br>

<b>Sent:</b> Monday, March 6, 2017 4:30:39 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 style="color:#000; background-color:#fff; font-family:Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:13px">

<div id="yui_3_16_0_ym19_1_1488817782016_6148">Oi Aureliano,</div>

<div id="yui_3_16_0_ym19_1_1488817782016_6149"><br id="yui_3_16_0_ym19_1_1488817782016_6150">

</div>

<div id="yui_3_16_0_ym19_1_1488817782016_6151">Já testaste usar um chomp antes do split?</div>

<div id="yui_3_16_0_ym19_1_1488817782016_6152"><br id="yui_3_16_0_ym19_1_1488817782016_6153">

</div>

<div id="yui_3_16_0_ym19_1_1488817782016_6154">[]'s</div>

<div id="yui_3_16_0_ym19_1_1488817782016_6155">Nicole<br id="yui_3_16_0_ym19_1_1488817782016_6156">

</div>

<div id="yui_3_16_0_ym19_1_1488817782016_6157"><span id="yui_3_16_0_ym19_1_1488817782016_6158"></span></div>

<br id="yui_3_16_0_ym19_1_1488817782016_6159">

<div class="qtdSeparateBR"><br>

<br>

</div>

<div class="yahoo_quoted" style="display: block;">

<div style="font-family: Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 13px;">

<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 13:36, Aureliano Guedes <guedes_1000@hotmail.com> escreveu:<br>

</font></div>

<br>

<br>

<div class="y_msg_container">

<div id="yiv3095987251"><style type="text/css"><!--#yiv3095987251 P {margin-top:0;margin-bottom:0;}--></style>

<div dir="ltr">

<div id="yiv3095987251divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri, Arial, Helvetica, sans-serif;" dir="ltr">

<div>Ola,</div>

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

<div><br>

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

</div>

<div><span><br>

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

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

</div>

</div>

</div>

<br>

_______________________________________________<br>

Rio-pm mailing list<br>

<a ymailto="mailto:Rio-pm@pm.org" href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>

<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>

<br>

</div>

</div>

</div>

</div>

</div>

</div>

</body>

</html>