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]>
> 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]>
> 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]
>> http://mail.pm.org/mailman/listinfo/rio-pm
>
> _______________________________________________
> Rio-pm mailing list
> [email protected]
> http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
