Não vou explicar passo a passo porque isso tu podes ver consultando o perldoc de cada um dos itens...<br>Mas a tecnica é simples, consiste em jogar o valor duplicado como chave de um hash (que nao aceita duplicações)... Depois retorna-se os keys desse hash (que sao os elementos do array, porém sem duplicidade)...<br>
Neste caso, usaram o grep para fazer as iterações, mas poderiamos usar tb map ou foreach.<br><br>Um exemplo similar seria:<br><br>my %seila = (); # hash temporario utilizado para remover as duplicidades<br>foreach my $a (@array){ $seila{$a}++; }; # itera o array com valores duplicados<br>
my @unique = keys %seila; # cria um array com base nas chaves do hash temporário<br><br>Espero ter ajudado.<br><br>Igor Garcia<br><br><br><br><br><br><br><br><br><div><span class="gmail_quote">Em 07/02/08, <b class="gmail_sendername">Patty Silva</b> &lt;<a href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>&gt; escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><div>Pessoal.. alguem poderia me explicar o comando abaixo:<br><br>my %seen = ();<br>my @unique = grep { ! $seen{ $_ }++ } @array;<br><br>
--&gt; para eliminar elementos repetidos de um array...<br><br>Obrigada :D</div></div><span class="ad"><br>


      <hr size="1">Abra sua conta no <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento! 
</span></div><br>_______________________________________________<br>PortoAlegre-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:PortoAlegre-pm@pm.org">PortoAlegre-pm@pm.org</a><br>
<a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/portoalegre-pm" target="_blank">http://mail.pm.org/mailman/listinfo/portoalegre-pm</a><br></blockquote></div><br>