
<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>

</head>

<body dir="ltr">

<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Arial,Helvetica,sans-serif;" dir="ltr">

<p>Ola,</p>

<p>Caros Monges.<br>

<br>

Estou com uma pequena dúvida.<br>

Estou usando a função uniq (List::Util e List::MoreUtils) para reduzir a redundância de um array.</p>

<p><br>

</p>

<p><span>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"'</span><br>

</p>

<p><span><br>

</span></p>

<p>Separa os elementos pelo '+' e depois remove a redundância. Acontece que o ultimo elemento for redundante ele não é eliminado.<br>

<br>

Alguém sabe o porque disso??<br>

<br>

Alguma sujestão de como reverter sem q eu tenha que criar um script pra isso ou minha propria rotina uniq??<br>

<br>

Desde já grato.</p>

</div>

</body>

</html>