>> 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 <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
