Daten :: Eimer. Daten :: Eimer ist ein indizierter Datenspeicher (Eimer-Hashing).
Jetzt downloaden

Daten :: Eimer. Ranking & Zusammenfassung

Daten :: Eimer. Stichworte

Lager Perl-Modul Hashing Datenspeicher Eimer Bucket-Hashing

Daten :: Eimer. Beschreibung

Daten :: Eimer ist ein indizierter Datenspeicher (Eimer-Hashing). Daten :: Eimer ist ein indizierter Datenspeicher (Eimerhash) .Synopsis verwenden Base QW (Daten :: Eimer); # Default-Speicherschema speichert Dinge, die auf dem ersten Charakter von Data # # basierend auf dem ersten Charakter # # # # # basieren sub compute_record_index {mein ($ self, $ data) = @_; Substr (0, 2, $ Daten); } s, $ file_to_be_searched oder sterben $! ; mein $ Eimer = __package __-> Index (); Öffnen Sie i, $ file_with_queries oder sterben Sie $! ; für meine $ line () {my @sarch_candidates = $ Eimer-> basierendied_on ($ line); My @score = Sortierkarte {fuzzy_match ($ line, $ _)} @Search_Candidate; } Ein Beispiel, in dem ein einzelnes Datum auf mehrere Eimer sub compute_record_index {mein ($ self, $ data) = @_; Rückgabe undef, es sei denn, $ Daten; Warn "$ data"; MEIN @Words = Split / S + /, $ Daten; meine $ min = min ($ # Wörter, 1); my @index = map {substr ($ _, 0, 1)} @Words ; @Index; } Für meine $ suche (qw (oh der Also zieht Apfel)) {My @b = $ Eimer-> basierte (Suche); # Tun Sie etwas, das jeder Wert in @bucket und $ Suchen} ein Beispiel, in dem sich die Nachschlagendaten in der Struktur von Eingabedateien unterscheiden, es gibt viel Platz für die Wiederverwendung zwischen den beiden. Aber für ein naiver Verständnis wird kein Refactoring durchgeführt. # Wir berechnen Rekordindizes für Eimer, indem Sie ein Feld aus # -Ang-Hash-Referenz sub compute_record_index extrahieren {MY ($ self, $ data) = @_; Rückgabe undef, es sei denn, $ Daten; Warn "$ data"; mein @ words = tlip / s + /, $ data -> {clean_name}; meine $ min = min ($ # Wörter, 2); my @index = map {substr ($ _, 0, 1)} @Words ; @Index; } # Wir erfahren die richtigen Eimer in den Eingabedaten, indem wir ein einfaches # String-Feld sub retrieve_record_index {My ($ self, $ data) = @_; Rückgabe undef, es sei denn, $ Daten; #warn "$ data"; MEIN @Words = Split / S + /, $ Daten; meine $ min = min ($ # Wörter, 2); my @index = map {substr ($ _, 0, 1)} @Words ; if ($ data = ~ / 01la /) {Warn "Wörter", Dumper @Words; Warn "Index", Dumper @index; für (@index) {Warn "Eimer ($ _)", Dumper ($ self -> {Eimer} {$ _}); } } @Index; } Anforderungen: · Perl Anforderungen: · Perl.

Daten :: Eimer. Zugehörige Software