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 <[email protected]>: > 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 <[email protected]>: > >> Saldações, >> >> Obrigado pela explicação, havia esquecido que o echo gera a quebra de >> linha. >> Abs, >> >> >> ------------------------------ >> *From:* Rio-pm <[email protected]> on behalf >> of Ronaldo Ferreira de Lima <[email protected]> >> *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 >> [email protected] >> http://mail.pm.org/mailman/listinfo/rio-pm >> >> _______________________________________________ >> Rio-pm mailing list >> [email protected] >> 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 [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
