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 +0000, 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