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