É algum bug no código echo "SP+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM+TM" | xargs perl -MList::Util=uniq -MDDP -e '@a=uniq(split(/\+/,$ARGV[0]));p @a'
Em 5 de março de 2017 13:35, 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