Algoritmo :: rabinkarp Rabin-Karp Streaming Hash
Descargar ahora

Algoritmo :: rabinkarp Clasificación y resumen

Algoritmo :: rabinkarp Etiquetas

Módulo perl perla clase transmisión de hash Implementación de Rabin Rabina

Algoritmo :: rabinkarp Descripción

Rabin-karp streaming hash Algoritmo :: Rabinkarp es una implementación de HASHING DE RABIN y KARP, como se describe en "Winned: algoritmos locales para el documento de huellas dactilares" por Schleimer, Wilkerson y Aiken. Tras la sugerencia de Schleimer, estoy usando su segunda ecuación: $ H ] = (($ H ] - $ C ** $ k) + $ C ) * $ Kthe los resultados de este hash codifica información sobre los siguientes valores K en la corriente (hense k-gramo). Esto significa para cualquier flujo de longitud n entero. (o caracteres), recibirá valores de hash n - k + 1. Para los mejores resultados, querrá crear un generador de código que fulga sus datos para eliminar toda la información innecesaria. Por ejemplo, en un gran documento en inglés, probablemente debería eliminar todo el espacio en blanco, además de eliminar toda la capitalización.Synopsis My $ Text = "A DO RUN RUN RUN, A DO RUN RUN"; My $ kgram = algoritmo :: rabinkarp-> nuevo ($ ventana, $ texto); o mi $ kgram2 = algoritmo :: rabinkarp-> nuevo ($ ventana, $ fh); o mi $ kgram3 = algoritmo :: rabinkarp-> Nuevo ($ Window, Sub {... devuelve $ NUM, $ posiciones;}); mi ($ hash, $ start_position, $ end_position) = $ kgram-> Siguiente; mis @values ​​= $ kgrag-> valores; mis% ocurrencias; # un diccionario de todos los kgrams. Mientras (mi ($ hash, @pos) = @ {shift @values}) {push @ {$ ocurrencias {$ hash}}, \ @ @pos; } My $ aguja = algoritmo :: rabinkarp-> Nueva (6, "Aguja"); Abre My $ FH, 'NUEVO (6, $ FH); My $ aguja_hash = $ aguja-> siguiente; MIENTRAS (MI ($ Hay_HASH, @POS) = $ PAQUSTACK-> Siguiente) {WARN "POSIBLE PARTIDO PARA 'AGUJA' en @pos" if $ aguja_hash eq $ hay_hash; } Requisitos: · Perl

Algoritmo :: rabinkarp Software relacionado