Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-06 Por tôpico Lucas Mateus 
Ou um *echo -n*

Em 6 de março de 2017 13:52, Aureliano Guedes <guedes_1...@hotmail.com>
escreveu:

> Verdade, um simples chomp; antes do código resolve.
>
> To enferrujado
>
> --
> *From:* Rio-pm <rio-pm-bounces+guedes_1000=hotmail@pm.org> on behalf
> of Nicole Scherer <bionica2007-p...@yahoo.com>
> *Sent:* Monday, March 6, 2017 4:30:39 PM
> *To:* Perl Mongers Rio de Janeiro
> *Subject:* Re: [Rio-pm] Função uniq com bug ou erro no codigo?
>
> Oi Aureliano,
>
> Já testaste usar um chomp antes do split?
>
> []'s
> Nicole
>
>
>
> Em Domingo, 5 de Março de 2017 13:36, 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

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-06 Por tôpico Aureliano Guedes 
Verdade, um simples chomp; antes do código resolve.

To enferrujado



From: Rio-pm <rio-pm-bounces+guedes_1000=hotmail@pm.org> on behalf of 
Nicole Scherer <bionica2007-p...@yahoo.com>
Sent: Monday, March 6, 2017 4:30:39 PM
To: Perl Mongers Rio de Janeiro
Subject: Re: [Rio-pm] Função uniq com bug ou erro no codigo?

Oi Aureliano,

Já testaste usar um chomp antes do split?

[]'s
Nicole



Em Domingo, 5 de Março de 2017 13:36, 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<mailto: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

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-06 Por tôpico Renato Santos 
Ah, tem q sempre lembrar de enviar já ordenado ou
echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+SP" | tr '+' "\n"| *sort* | uniq
-c

2017-03-06 9:13 GMT-03:00 Renato Santos <renato.c...@gmail.com>:

> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | tr '+' "\n"| uniq -c
>
> 2017-03-06 9:08 GMT-03:00 Aureliano Guedes <guedes_1...@hotmail.com>:
>
>> Saldações,
>>
>> Obrigado pela explicação, havia esquecido que o echo gera a quebra de
>> linha.
>> Abs,
>>
>>
>> --
>> *From:* Rio-pm <rio-pm-bounces+guedes_1000=hotmail@pm.org> on behalf
>> of Ronaldo Ferreira de Lima <jimmy....@gmail.com>
>> *Sent:* Monday, March 6, 2017 12:04:44 PM
>> *To:* Rio PM
>>
>> *Subject:* Re: [Rio-pm] Função uniq com bug ou erro no codigo?
>>
>> Saudações Aureliano,
>>
>> On Sun, Mar 05, 2017 at 04:35:49PM +, Aureliano Guedes wrote:
>> > 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??
>> O comando 'echo' produziu uma quebra de linha que não foi tratada pelo
>> código, ou seja, depois do 'split', a sua lista ficou assim:
>>
>> $VAR1 = [
>>   "SP",
>>   "TM",
>>   "TM",
>>   "TM",
>>   "TM",
>>   "TM",
>>   "TM",
>>   "TM",
>>   "TM",
>>   "TM",
>>   "TM",
>>   "TM\n"
>> ];
>>
>> >
>> > Alguma sujestão de como reverter sem q eu tenha que criar um script pra
>> isso ou
>> > minha propria rotina uniq??
>> Como já sugerido, remova a quebra de linha com o chomp ou similar que
>> estará resolvido.
>>
>> > Desde já grato.
>> []'s
>> --
>> "Não manejo bem as palavras
>> Mas manipulo bem as strings."
>> --
>> https://perspicazsite.wordpress.com
>> ___
>> 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
>>
>
>
>
> --
> YAGNI,
> Renato CRON
> http://www.renatocron.com/blog/
> @renato_cron <http://twitter.com/#!/renato_cron>
>



-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-06 Por tôpico Renato Santos 
echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | tr '+' "\n"| uniq -c

2017-03-06 9:08 GMT-03:00 Aureliano Guedes <guedes_1...@hotmail.com>:

> Saldações,
>
> Obrigado pela explicação, havia esquecido que o echo gera a quebra de
> linha.
> Abs,
>
>
> --
> *From:* Rio-pm <rio-pm-bounces+guedes_1000=hotmail@pm.org> on behalf
> of Ronaldo Ferreira de Lima <jimmy@gmail.com>
> *Sent:* Monday, March 6, 2017 12:04:44 PM
> *To:* Rio PM
>
> *Subject:* Re: [Rio-pm] Função uniq com bug ou erro no codigo?
>
> Saudações Aureliano,
>
> On Sun, Mar 05, 2017 at 04:35:49PM +, Aureliano Guedes wrote:
> > 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??
> O comando 'echo' produziu uma quebra de linha que não foi tratada pelo
> código, ou seja, depois do 'split', a sua lista ficou assim:
>
> $VAR1 = [
>   "SP",
>   "TM",
>   "TM",
>   "TM",
>   "TM",
>   "TM",
>   "TM",
>   "TM",
>   "TM",
>   "TM",
>   "TM",
>   "TM\n"
> ];
>
> >
> > Alguma sujestão de como reverter sem q eu tenha que criar um script pra
> isso ou
> > minha propria rotina uniq??
> Como já sugerido, remova a quebra de linha com o chomp ou similar que
> estará resolvido.
>
> > Desde já grato.
> []'s
> --
> "Não manejo bem as palavras
> Mas manipulo bem as strings."
> --
> https://perspicazsite.wordpress.com
> ___
> 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
>



-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-06 Por tôpico Ronaldo Ferreira de Lima 
Saudações Aureliano,

On Sun, Mar 05, 2017 at 04:35:49PM +, Aureliano Guedes wrote:
> 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??
O comando 'echo' produziu uma quebra de linha que não foi tratada pelo
código, ou seja, depois do 'split', a sua lista ficou assim:

$VAR1 = [
  "SP",
  "TM",
  "TM",
  "TM",
  "TM",
  "TM",
  "TM",
  "TM",
  "TM",
  "TM",
  "TM",
  "TM\n"
];

> 
> Alguma sujestão de como reverter sem q eu tenha que criar um script pra isso 
> ou
> minha propria rotina uniq??
Como já sugerido, remova a quebra de linha com o chomp ou similar que
estará resolvido.

> Desde já grato.
[]'s
-- 
"Não manejo bem as palavras
Mas manipulo bem as strings."
--
https://perspicazsite.wordpress.com
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-05 Por tôpico Fernando Oliveira 


Enviado do meu iPhone

> Em 5 de mar de 2017, às 17:19, Gabriel Vieira <gabriel.vie...@gmail.com> 
> escreveu:
> 
> GOLF???!?!?! \o/
> 
> 
> NÃO RETORNA NECESSARIAMENTE NA ORDEM ENCONTRADA (76 chars)
> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM"|perl -nE'@x{/\w+/g}++;say keys%x'
https://glot.io/snippets/enq3cdjqa5
> 
> MANTÉM A ORDEM (76 chars)
> echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM"|perl -nE'$x{$_}++||say for/\w+/g'
https://glot.io/snippets/enq3dys5ew
> 
> 2017-03-05 12:43 GMT-05:00 Aureliano Guedes <guedes_1...@hotmail.com>:
>> 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 <rio-pm-bounces+guedes_1000=hotmail....@pm.org> on behalf of 
>> Fernando Oliveira <fernandocor...@gmail.com>
>> 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 <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
> 
> 
> 
> -- 
> Gabriel Vieira
> ___
> 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

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-05 Por tôpico Gabriel Vieira 
GOLF???!?!?! \o/


NÃO RETORNA NECESSARIAMENTE NA ORDEM ENCONTRADA (76 chars)
echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM"|perl -nE'@x{/\w+/g}++;say keys%x'

MANTÉM A ORDEM (76 chars)
echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM"|perl -nE'$x{$_}++||say for/\w+/g'

2017-03-05 12:43 GMT-05:00 Aureliano Guedes <guedes_1...@hotmail.com>:

> 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 <rio-pm-bounces+guedes_1000=hotmail@pm.org> on behalf
> of Fernando Oliveira <fernandocor...@gmail.com>
> *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 <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.oliveira@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
>



-- 
Gabriel Vieira
___
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-05 Por tôpico Aureliano Guedes 
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 <rio-pm-bounces+guedes_1000=hotmail@pm.org> on behalf of 
Fernando Oliveira <fernandocor...@gmail.com>
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 
<fernandocor...@gmail.com<mailto: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<mailto: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<mailto: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<mailto:Rio-pm@pm.org>
http://mail.pm.org/mailman/listinfo/rio-pm

___
Rio-pm mailing list
Rio-pm@pm.org<mailto: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

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-05 Por tôpico Fernando Oliveira 
>> 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  
> 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  
>> 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  
>> 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

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-05 Por tôpico Fernando Oliveira 
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  
> 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  
> 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

Re: [Rio-pm] Função uniq com bug ou erro no codigo?

2017-03-05 Por tôpico Lucas Mateus 
É 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 
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] Função uniq com bug ou erro no codigo?

2017-03-05 Por tôpico Aureliano Guedes 
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