Dati :: secchio Data :: Secchio è un archivio dati indicizzato (hashing a bucket).
Scarica ora

Dati :: secchio Classifica e riepilogo

Dati :: secchio Tag

Deposito modulo Perl hashing archivio dati Benna hashing del secchio

Dati :: secchio Descrizione

Data :: Secchio è un archivio dati indicizzato (hashing a bucket). Dati :: Benent è un negozio di dati indicizzato (hashing a bucket) .synopsis usa base QW (dati :: secchio); # Schema di archiviazione predefinito memorizza le cose in base al primo carattere dei dati # ne sovraccarichiamo nella nostra sotto-classe # se restituiamo un array-ref, quindi l'elemento di dati è memorizzato in ciascun secchio # al contrario di un singolo. sub compute_record_index {my ($ sé, $ dati) = @_; substr (0, 2, $ dati); } Apri s, $ file_to_be_searched o morire $! ; My $ Bucket = __Package __-> indice (); Apri I, $ file_with_queries o morire $! ; per la mia linea $ () {my @search_candidates = $ bucket-> based_on ($ line); My @Score = Ordina mappa {Fuzzy_match ($ Line, $ _)} @search_candidates; } Un esempio in cui un singolo dato viene scaricato su più secchi sub compute_record_index {my ($ sé, $ dati) = @_; restituire undef a meno che $ $ dati; avvertire "$ dati"; I miei @Words = Spalato / S + /, $ dati; My $ min = min ($ # parole, 1); My @index = map {supstr ($ _, 0, 1)} @words ; @indice; } per la mia ricerca $ (QW (Oh The Sys Draw Apple)) {My @B = $ Bucket-> Based_on ($ ricerca); # Fai qualcosa che ogni valore in @bucket e $ search} Un esempio in cui i dati di ricerca differiscono nella struttura dai dati di ingresso, c'è un sacco di spazio per il riutilizzo tra i due. Ma per la comprensione ingenua, non è fatto alcun refactoring. # Compute indici di record per il bucking estraendo un campo da # input hash riferimento sub compult_record_index {my ($ sé, $ dati) = @_; restituire undef a meno che $ $ dati; avvertire "$ dati"; i miei @words = Spalato / S + /, $ dati -> {clean_name}; i miei $ min = min ($ # # parole, 2); My @index = map {supstr ($ _, 0, 1)} @words ; @indice; } # Scopri i secchi appropriati nei dati di input utilizzando un campo Pianura # String Sub Retrieve_Record_Index {My ($ sé, $ dati) = @_; restituire undef a meno che $ $ dati; #warn "$ dati"; I miei @Words = Spalato / S + /, $ dati; i miei $ min = min ($ # # parole, 2); My @index = map {supstr ($ _, 0, 1)} @words ; se ($ data = ~ / 01LA /) {warn "words", dumper @words; warn "indice", dumper @index; per (@index) {warn "secchio ($ _)", dumper ($ auto-> {secchio} {$ _}); }} @index; } Requisiti: · Requisiti perl: · Perl.

Dati :: secchio Software correlato