Perl Arrays Unique Duplicates

Como Remover Itens Duplicados de um Array em Perl

Trabalhar com arrays na programação frequentemente leva a um desafio comum: como lidar com valores duplicados. Se você é um programador Perl enfrentando esse problema, pode não estar certo de como remover eficazmente itens duplicados de um array.

Neste post do blog, vamos explorar a técnica específica para eliminar duplicatas de um array em Perl, fornecendo uma solução personalizada, bem como uma visão das funções embutidas disponíveis nas versões mais recentes do Perl.

Entendendo o Problema

Considere um exemplo onde você tem o seguinte array em Perl:

my @my_array = ("um", "dois", "três", "dois", "três");

Neste array, os valores “dois” e “três” aparecem mais de uma vez, tornando-o um candidato à deduplicação. O objetivo aqui é transformar este array em uma lista única, essencialmente se livrando dessas duplicatas, de modo que você fique com:

um dois três

Solução: Abordagem Personalizada

Criando uma Função Única

Uma forma simples e eficaz de remover duplicatas é criando uma função personalizada. Abaixo está uma função chamada uniq que você pode usar:

sub uniq {
    my %seen;
    grep !$seen{$_}++, @_;
}

Desmembrando a Função

  1. %seen: Este é um hash que armazenará os elementos como chaves. Hashes em Perl permitem apenas chaves únicas, o que o torna perfeito para rastrear duplicatas.

  2. grep: Esta função itera sobre a lista e avalia a condição. Aqui, !$seen{$_}++ verifica se o item atual ($_) foi visto (ou seja, existe em %seen). Se não foi, ele o adiciona ao hash e retorna verdadeiro, permitindo que grep mantenha este item na saída.

Aplicando a Função

Você pode aplicar a função ao seu array da seguinte forma:

my @array = qw(um dois três dois três);
my @filtered = uniq(@array);

print "@filtered\n"; # Isso imprime: um dois três

Testando a Saída

Após executar este código, sua saída mostrará o array filtrado:

um dois três

Isso demonstra que as duplicatas foram removidas com sucesso!

Usando Funções Embutidas

Se você está usando a versão 5.26.0 ou posterior do Perl, pode aproveitar os módulos embutidos para uma solução mais universal:

Módulo List::Util

A função uniq do módulo List::Util lida com duplicatas de forma eficiente. Para usá-la:

  1. Certifique-se de que sua versão do Perl está atualizada.
  2. Instale o módulo (se necessário).
  3. Use uniq diretamente em seu array.

Exemplo:

use List::Util 'uniq';
my @array = qw(um dois três dois três);
my @filtered = uniq(@array);

print "@filtered\n"; # Isso imprime: um dois três

O que Torna o Uniq Embutido Melhor?

  • Eficiência: Funções embutidas são tipicamente otimizadas para desempenho.
  • Tratamento de valores indefinidos: List::Util::uniq trata undef como um valor separado.
  • Sem avisos: Este método não emitirá avisos relacionados a valores duplicados.

Conclusão

Remover itens duplicados de um array em Perl pode ser feito de forma eficaz através de uma função personalizada ou aproveitando as capacidades embutidas, especialmente com List::Util. Qualquer que seja o método que você escolher, você pode ter certeza de que a limpeza de seus arrays é direta e eficiente. Agora você pode enfrentar arrays com confiança!

Pratique essas técnicas em seus projetos Perl para aprimorar suas habilidades!