<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="Generator" content="Microsoft Exchange Server">
<!-- converted from text --><style><!-- .EmailQuote { margin-left: 1pt; padding-left: 4pt; border-left: #800000 2px solid; } --></style>
</head>
<body>
<meta content="text/html; charset=UTF-8">
<style type="text/css" style="">
<!--
p
{margin-top:0;
margin-bottom:0}
-->
</style>
<div dir="ltr">
<div id="x_divtagdefaultwrapper" dir="ltr" style="font-size:12pt; color:#000000; font-family:Calibri,Arial,Helvetica,sans-serif">
<p>Saldações,<br>
</p>
<p>Obrigado pela explicação, havia esquecido que o echo gera a quebra de linha.<br>
Abs,</p>
<p><br>
</p>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>From:</b> Rio-pm <rio-pm-bounces+guedes_1000=hotmail.com@pm.org> on behalf of Ronaldo Ferreira de Lima <jimmy.tty@gmail.com><br>
<b>Sent:</b> Monday, March 6, 2017 12:04:44 PM<br>
<b>To:</b> Rio PM<br>
<b>Subject:</b> Re: [Rio-pm] Função uniq com bug ou erro no codigo?</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">Saudações Aureliano,<br>
<br>
On Sun, Mar 05, 2017 at 04:35:49PM +0000, Aureliano Guedes wrote:<br>
> Ola,<br>
> <br>
> 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<br>
> redundância de um array.<br>
> <br>
> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -MList::Util='uniq' -MDDP -ne<br>
> '@a = uniq (split (/\+/, $_)); print "\n"; p @a; print "\n"'<br>
> <br>
> Separa os elementos pelo '+' e depois remove a redundância. Acontece que o<br>
> ultimo elemento for redundante ele não é eliminado.<br>
> <br>
> Alguém sabe o porque disso??<br>
O comando 'echo' produziu uma quebra de linha que não foi tratada pelo<br>
código, ou seja, depois do 'split', a sua lista ficou assim:<br>
<br>
$VAR1 = [<br>
"SP",<br>
"TM",<br>
"TM",<br>
"TM",<br>
"TM",<br>
"TM",<br>
"TM",<br>
"TM",<br>
"TM",<br>
"TM",<br>
"TM",<br>
"TM\n"<br>
];<br>
<br>
> <br>
> Alguma sujestão de como reverter sem q eu tenha que criar um script pra isso ou<br>
> minha propria rotina uniq??<br>
Como já sugerido, remova a quebra de linha com o chomp ou similar que<br>
estará resolvido.<br>
<br>
> Desde já grato.<br>
[]'s<br>
-- <br>
"Não manejo bem as palavras<br>
Mas manipulo bem as strings."<br>
------------------------------<br>
<a href="https://perspicazsite.wordpress.com">https://perspicazsite.wordpress.com</a><br>
_______________________________________________<br>
Rio-pm mailing list<br>
Rio-pm@pm.org<br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</div>
</span></font>
</body>
</html>