Perl Arrays Unique Duplicates

Wie man Duplikate aus einem Array in Perl entfernt

Die Arbeit mit Arrays in der Programmierung führt oft zu einer gemeinsamen Herausforderung: Wie geht man mit doppelten Werten um? Wenn Sie ein Perl-Programmierer sind, der mit diesem Problem konfrontiert ist, sind Sie sich möglicherweise nicht sicher, wie Sie effektiv Duplikate aus einem Array entfernen können.

In diesem Blogbeitrag gehen wir die spezifische Technik durch, um Duplikate aus einem Array in Perl zu eliminieren, und bieten Ihnen sowohl eine benutzerdefinierte Lösung als auch einen Blick auf integrierte Funktionen, die in neueren Versionen von Perl verfügbar sind.

Verständnis des Problems

Betrachten Sie ein Beispiel, bei dem Sie das folgende Array in Perl haben:

my @my_array = ("eins", "zwei", "drei", "zwei", "drei");

In diesem Array erscheinen die Werte “zwei” und “drei” mehr als einmal, was es zu einem Kandidaten für die De-Duplizierung macht. Das Ziel hier ist es, dieses Array in eine einzigartige Liste zu transformieren, indem wir diese Duplikate loswerden, sodass Sie am Ende Folgendes haben:

eins zwei drei

Lösung: Benutzerdefinierter Ansatz

Erstellen einer einzigartigen Funktion

Eine einfache und effektive Möglichkeit, Duplikate zu entfernen, besteht darin, eine benutzerdefinierte Funktion zu erstellen. Nachfolgend finden Sie eine Funktion namens uniq, die Sie verwenden können:

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

Aufschlüsselung der Funktion

  1. %seen: Dies ist ein Hash, der die Elemente als Schlüssel speichert. Hashes in Perl erlauben nur eindeutige Schlüssel, was dies perfekt für die Verfolgung von Duplikaten macht.

  2. grep: Diese Funktion iteriert über die Liste und bewertet die Bedingung. Hier prüft !$seen{$_}++, ob das aktuelle Element ($_) bereits gesehen wurde (d.h., ob es in %seen existiert). Wenn nicht, wird es zum Hash hinzugefügt und gibt true zurück, was grep ermöglicht, dieses Element in der Ausgabe beizubehalten.

Anwenden der Funktion

Sie können die Funktion auf Ihr Array wie folgt anwenden:

my @array = qw(eins zwei drei zwei drei);
my @filtered = uniq(@array);

print "@filtered\n"; # Dies gibt aus: eins zwei drei

Testen der Ausgabe

Nach dem Ausführen dieses Codes zeigt Ihre Ausgabe das gefilterte Array an:

eins zwei drei

Das zeigt, dass die Duplikate erfolgreich entfernt wurden!

Verwendung von integrierten Funktionen

Wenn Sie Perl-Version 5.26.0 oder höher verwenden, können Sie von integrierten Modulen für eine universellere Lösung profitieren:

List::Util-Modul

Die Funktion uniq aus dem List::Util-Modul behandelt Duplikate effizient. Um es zu verwenden:

  1. Stellen Sie sicher, dass Ihre Perl-Version auf dem neuesten Stand ist.
  2. Installieren Sie das Modul (falls erforderlich).
  3. Verwenden Sie uniq direkt auf Ihrem Array.

Beispiel:

use List::Util 'uniq';
my @array = qw(eins zwei drei zwei drei);
my @filtered = uniq(@array);

print "@filtered\n"; # Dies gibt aus: eins zwei drei

Was macht integrierte Uniq besser?

  • Effizienz: Integrierte Funktionen sind typischerweise für die Leistung optimiert.
  • Umgang mit undefinierten Werten: List::Util::uniq behandelt undef als eigenen Wert.
  • Keine Warnungen: Diese Methode gibt keine Warnungen in Bezug auf doppelte Werte aus.

Fazit

Das Entfernen von Duplikaten aus einem Array in Perl kann effektiv entweder durch eine benutzerdefinierte Funktion oder durch die Nutzung von integrierten Möglichkeiten geschehen, insbesondere mit List::Util. Welche Methode Sie auch wählen, Sie können sicherstellen, dass die Bereinigung Ihrer Arrays einfach und effizient ist. Jetzt können Sie Arrays mit Zuversicht angehen!

Üben Sie diese Techniken in Ihren Perl-Projekten, um Ihre Fähigkeiten zu verfeinern!