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

[Lucas Mateus]

Ou um *echo -n*

Em 6 de março de 2017 13:52, Aureliano Guedes <guedes_1000 em hotmail.com>
escreveu:

> 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
> http://mail.pm.org/mailman/listinfo/rio-pm
>
>
> _______________________________________________
> Rio-pm mailing list
> 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/4dce3554/attachment.html>