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