[Rio-pm] Função uniq com bug ou erro no codigo?
Aureliano Guedes
guedes_1000 em hotmail.com
Dom Mar 5 08:35:49 PST 2017
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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20170305/38d57629/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm