Perl Arrays Unique Duplicates

Cómo Eliminar Elementos Duplicados de un Array en Perl

Trabajar con arrays en programación a menudo te lleva a un desafío común: cómo manejar los valores duplicados. Si eres un programador de Perl que enfrenta este problema, podrías no estar seguro de cómo eliminar eficazmente los elementos duplicados de un array.

En esta publicación del blog, recorreremos la técnica específica para eliminar duplicados de un array en Perl, proporcionándote una solución personalizada, así como una visión de las funciones integradas disponibles en las versiones más nuevas de Perl.

Entendiendo el Problema

Considera un ejemplo en el que tienes el siguiente array en Perl:

my @my_array = ("uno", "dos", "tres", "dos", "tres");

En este array, los valores “dos” y “tres” aparecen más de una vez, lo que lo convierte en un candidato para la deduplicación. El objetivo aquí es transformar este array en una lista única, eliminando esencialmente estos duplicados, para que termines con:

uno dos tres

Solución: Enfoque Personalizado

Creando una Función Única

Una forma simple y efectiva de eliminar duplicados es creando una función personalizada. A continuación, te mostramos una función llamada uniq que puedes usar:

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

Desglosando la Función

  1. %seen: Este es un hash que almacenará los elementos como claves. Los hashes en Perl solo permiten claves únicas, lo que lo hace perfecto para rastrear duplicados.

  2. grep: Esta función itera sobre la lista y evalúa la condición. Aquí, !$seen{$_}++ verifica si el elemento actual ($_) ha sido visto (es decir, existe en %seen). Si no lo ha sido, lo añade al hash y devuelve verdadero, permitiendo que grep mantenga este elemento en la salida.

Aplicando la Función

Puedes aplicar la función a tu array de la siguiente manera:

my @array = qw(uno dos tres dos tres);
my @filtered = uniq(@array);

print "@filtered\n"; # Esto imprime: uno dos tres

Probando la Salida

Después de ejecutar este código, tu salida mostrará el array filtrado:

uno dos tres

¡Esto demuestra que los duplicados han sido eliminados con éxito!

Usando Funciones Integradas

Si estás utilizando la versión 5.26.0 de Perl o posterior, puedes aprovechar los módulos integrados para una solución más universal:

Módulo List::Util

La función uniq del módulo List::Util maneja los duplicados de manera eficiente. Para usarla:

  1. Asegúrate de que tu versión de Perl esté actualizada.
  2. Instala el módulo (si es necesario).
  3. Usa uniq directamente en tu array.

Ejemplo:

use List::Util 'uniq';
my @array = qw(uno dos tres dos tres);
my @filtered = uniq(@array);

print "@filtered\n"; # Esto imprime: uno dos tres

¿Qué Hace Que Built-in Uniq Sea Mejor?

  • Eficiencia: Las funciones integradas suelen estar optimizadas para el rendimiento.
  • Manejo de valores indefinidos: List::Util::uniq trata undef como un valor separado.
  • Sin advertencias: Este método no emitirá advertencias relacionadas con valores duplicados.

Conclusión

Eliminar elementos duplicados de un array en Perl se puede hacer de manera efectiva a través de una función personalizada o aprovechando las capacidades integradas, especialmente con List::Util. Cualquiera que sea el método que elijas, puedes asegurarte de que la limpieza de tus arrays sea sencilla y eficiente. ¡Ahora puedes abordar arrays con confianza!

¡Practica estas técnicas en tus proyectos de Perl para perfeccionar tus habilidades!