Verdade, um simples chomp; antes do código resolve. To enferrujado
________________________________ From: Rio-pm <[email protected]> on behalf of Nicole Scherer <[email protected]> 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 <[email protected]> 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 [email protected]<mailto:[email protected]> http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________ Rio-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
