Re: [Rio-pm] Função uniq com bug ou erro no codigo?
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?
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<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?
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 <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?
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 <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?
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?
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?
Agora q eu reparei q o Flôr.io troca os + por espaço nos dados de entrada... Enviado do meu iPhone > Em 6 de mar de 2017, às 00:09, Fernando Oliveira > escreveu: > > SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM ___ 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?
Enviado do meu iPhone > Em 5 de mar de 2017, às 17:19, Gabriel Vieira > 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 : >> 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 on behalf of >> Fernando Oliveira >> 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 >> 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 > > > > -- > 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?
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 : > 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 on behalf > of Fernando Oliveira > *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 > 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 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 > 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?
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 on behalf of Fernando Oliveira 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 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 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 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?
>> 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?
Falta o chomp:echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | perl -MList::Util='uniq' -MDDP -ne '@a = split (/\+/, $_); chomp @a; @b = uniq (@a); print "\n"; p @b' Em Domingo, 5 de Março de 2017 11: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 ___ 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?
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?
É 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?
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