Array :: einzigartig. Array :: Einzigartig ist ein bindungsfähiges Array, das nur eindeutige Werte ermöglicht.
Jetzt downloaden

Array :: einzigartig. Ranking & Zusammenfassung

Array :: einzigartig. Stichworte

Perl-Modul Array bindbares Array einzigartige Werte bindbar

Array :: einzigartig. Beschreibung

Array :: Einzigartig ist ein bindungsfähiges Array, das nur eindeutige Werte ermöglicht. Array :: Einzigartig ist ein biegendes Array, das nur eindeutige Werte ermöglicht. Synopsis verwenden Array :: einzigartig; Krawatte @a, 'Array :: einzigartig'; Verwenden Sie nun @A als reguläres Array.Das Paket lässt Sie ein Array erstellen, das nur ein Vorkommen eines Werts ermöglicht. In anderen Worten, egal wie oft Sie in 42 eingesetzt werden. Es wird nur das erste Ereignis behalten und der Rest wird sein LOPPED.IU Verwenden Sie das Modul über Krawatte und sobald Sie Ihr Array an dieses Modul gebunden haben, wird es korrekt verhalten.Unique ist mit dem Operator "EQ" mit dem Fall, dass unter anderem die Groß- und Kleinschreibung senkt. Als Wert in der Array.Examples verwenden Sie Array :: einzigartig; Krawatte @a, 'Array :: einzigartig'; @a = qw (a b c a d e); Push @a, qw (x b z); drucken "@an"; # A B C D E F x ZWenn Sie eine Liste der Elemente sammeln und Sie möchten, dass nur ein Ereignis jedes Elements vorhanden ist. Sie haben mehrere Option: 1) mit einem Array und extrahiert die einzigartigen Elemente später. Sie können ein reguläres Array verwenden, um diese eindeutigen Werte festzuhalten, und entweder mit Duplikaten auf jedem Update entfernen, indem Sie das Array immer eindeutig halten oder Duplikate entfernen, kurz bevor Sie die Eindeutigkeitsfunktion des Arrays verwenden möchten. In beiden Fällen können Sie eine Funktion ausführen, die Sie @a = eindeutig_value (@a) anrufen. Das Problem mit diesem Ansatz ist, dass Sie die einzigartige_Value-Funktion implementieren müssen (siehe später) und Sie müssen sicherstellen, dass Sie nicht vergessen, anzurufen es. Ich würde sagen, nicht darauf verlassen, dass ich mich daran erinnere. In der 1. Ausgabe des Perl-Kochbuchs von O'Reilly gibt es eine gute Diskussion darüber. Ich habe hier die Lösungen kopiert, Sie können die weitere Diskussion im Buch sehen. ---------------------------------------------------------- das Perl-Kochbuch 1st ed.) # Unkomplizierte% gesehen = (); @Uniq = (); Deeach $ item (@list) [Sofern nicht ($ gesehen {$ item}) {# Wenn wir hierher kommen, haben wir es noch nicht gesehen, bis $ vor $ gesehen {$ item} = 1; Push (@uniq, $ Artikel); }} # Schneller% gesehen = (); Deeach $ item (@list) {Push (@uniq, $ item), es sei denn $ $ gesehen {$ item} ++; } # Schneller, aber unterschiedlich% gesehen; foreach $ article (@list) {$ gesehen {$ item} ++; } @uniq = Schlüssel% gesehen; # Schneller und noch unterschiedlicher% gesehen; @Uniq = Grep {! $ gesehen {$ _} ++} @list; ------------------------------------------ 2) Verwenden eines Hashs Einige Leute verwenden die Tasten von einem Hash, um die Gegenstände aufzubewahren und einen beliebigen Wert als Werte des Hash zu halten: So erstellen Sie eine solche Liste:% Unique = MAP {$ _ => 1} QW (eins zwei zwei drei vier!); Um es zu drucken: drucken up ",", sortieren Sie die Tasten% eindeutig; Um Werte hinzuzufügen: $ einzigartig {$ _} = 1 feach qw (einer nach der neun oh neun); Um Werte zu entfernen: Löschen @unique {qw (oh neun)}; Um zu überprüfen, ob ein Wert da ist: $ eindeutig {$ value}; # Deshalb benutze ich gerne "1" als meinen Wert (dank Gaal Yahas für die obigen Beispiele) gibt es drei Nachteile, die ich sehe: 1) Sie tippen mehr.2) Ihr Leser ist zunächst nicht verstanden Hash und was sind die Werte.3) Du verlierst die Bestellung Ich entschied mich, dieses Modul zu schreiben, weil ich von meinem mangelnden Verständnis frustriert wurde, was in diesem Code, den ich erwähnt habe, frustriert. Darüber hinaus dachte ich, es könnte interessant sein, dies zu schreiben, und dann Benchmark. Zusätzlich ist es schön, Ihren Namen in hellen Lichtern auf dem gesamten CPAN angezeigten ... oder zumindest in einem Modul immer einzigartig Ich würde sagen, dass Sie mit der Hash-Version und dokumentieren Ich habe keine derjenigen überprüft, aber ich denke, sie sind genauso viel von einem Overkill für diese Funktionalität als einzigartig :: Array.Requirements: · Perl Anforderungen: · Perl.

Array :: einzigartig. Zugehörige Software