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

> Verdade, um simples chomp; antes do código resolve.
>
> To enferrujado
>
> --
> *From:* Rio-pm  on behalf
> of Nicole Scherer 
> *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  on behalf of 
Nicole Scherer 
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 
 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

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 :

> 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 :
>
>> Saldações,
>>
>> Obrigado pela explicação, havia esquecido que o echo gera a quebra de
>> linha.
>> Abs,
>>
>>
>> --
>> *From:* Rio-pm  on behalf
>> of Ronaldo Ferreira de Lima 
>> *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 
>



-- 
YAGNI,
Renato CRON
http://www.renatocron.com/blog/
@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 :

> Saldações,
>
> Obrigado pela explicação, havia esquecido que o echo gera a quebra de
> linha.
> Abs,
>
>
> --
> *From:* Rio-pm  on behalf
> of Ronaldo Ferreira de Lima 
> *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 
___
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 
Saldações,

Obrigado pela explicação, havia esquecido que o echo gera a quebra de linha.
Abs,



From: Rio-pm  on behalf of 
Ronaldo Ferreira de Lima 
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

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