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

Lucas Mateus lucasmateus.oliveira em gmail.com
Dom Mar 5 08:51:30 PST 2017


É algum bug no código

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'

Em 5 de março de 2017 13:35, 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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20170305/d22d92ce/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm