Falta o chomp:echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl 
-MList::Util='uniq' -MDDP -ne '@a = split (/\+/, $_); chomp @a; @b = uniq (@a); 
print "\n"; p @b'
 

    Em Domingo, 5 de Março de 2017 11:59, Fernando Oliveira 
<fernandocor...@gmail.com> escreveu:
 

 Eu não sei qual é o problema, mas tenho uma sugestão de solução (código não 
testado, tô no celular):

echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -nE '%a{split "+"}++; say 
keys %a}'

Enviado do meu iPhone
Em 5 de mar de 2017, às 13:51, Lucas Mateus <lucasmateus.olive...@gmail.com> 
escreveu:


É 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_1...@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@pm.org
http://mail.pm.org/mailman/ listinfo/rio-pm




_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

   
_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Responder a