Obrigado, era so o chomp mesmo.
Perl6 é interessante mas pra agora não seria ideal.
A solução com array seria a melhor talvez, mas ate tentei
echo "WXG+WXG+PT-COG5412+Tox-SHH+TM+TM+TM+TM" | perl -MDDP -nE 'foreach(split
/\+/){$a{$_}++}; p %a'
Mas deu problema que fiquei com preguissa de tratar. saiu linha em branco e a
ultima repetição.
Obrigado monges
________________________________
From: Rio-pm <[email protected]> on behalf of
Fernando Oliveira <[email protected]>
Sent: Sunday, March 5, 2017 5:15:08 PM
To: Perl Mongers Rio de Janeiro
Subject: Re: [Rio-pm] Função uniq com bug ou erro no codigo?
echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl6 -n 'say set .split: "+"'
Enviado do meu iPhone
Em 5 de mar de 2017, às 13:59, Fernando Oliveira
<[email protected]<mailto:[email protected]>> 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
<[email protected]<mailto:[email protected]>>
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
<[email protected]<mailto:[email protected]>> 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
[email protected]<mailto:[email protected]>
http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________
Rio-pm mailing list
[email protected]<mailto:[email protected]>
http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
