[Rio-pm] Função uniq com bug ou erro no codigo?

[Aureliano Guedes]

Verdade, um simples chomp; antes do código resolve.

To enferrujado


________________________________
From: Rio-pm <rio-pm-bounces+guedes_1000=hotmail.com em pm.org> on behalf of Nicole Scherer <bionica2007-perl em yahoo.com>
Sent: Monday, March 6, 2017 4:30:39 PM
To: Perl Mongers Rio de Janeiro
Subject: Re: [Rio-pm] Função uniq com bug ou erro no codigo?

Oi Aureliano,

Já testaste usar um chomp antes do split?

[]'s
Nicole



Em Domingo, 5 de Março de 2017 13:36, Aureliano Guedes <guedes_1000 em hotmail.com> escreveu:


Ola,
Caros Monges.

Estou com uma pequena dúvida.
Estou usando a função uniq (List::Util e List::MoreUtils) para reduzir a redundância de um array.

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

Separa os elementos pelo '+' e depois remove a redundância. Acontece que o ultimo elemento for redundante ele não é eliminado.

Alguém sabe o porque disso??

Alguma sujestão de como reverter sem q eu tenha que criar um script pra isso ou minha propria rotina uniq??

Desde já grato.

_______________________________________________
Rio-pm mailing list
Rio-pm em pm.org<mailto:Rio-pm em pm.org>
http://mail.pm.org/mailman/listinfo/rio-pm

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20170306/8263cea1/attachment-0001.html>