perl-Text-Soundex

Soundex è un algoritmo fonetico per indicizzare i nomi in base al suono, come pronunciato in inglese. L'obiettivo è che i nomi con la stessa pronuncia siano codificati nella stessa rappresentazione in modo da poterli abbinare nonostante piccole differenze di ortografia. Soundex è il più ampiamente conosciuto di tutti gli algoritmi fonetici e viene spesso usato (in modo errato) come sinonimo di "algoritmo fonetico". I miglioramenti a Soundex sono la base di molti algoritmi fonetici moderni. (Wikipedia, 2007) Questo modulo implementa l'algoritmo soundex originale sviluppato da Robert Russell e Margaret Odell, brevettato nel 1918 e nel 1922, nonché una variante chiamata "American Soundex" usata per i dati del censimento USA e attualmente mantenuta dalla National Archives and Records Administration (NARA). L'algoritmo soundex può essere riconosciuto da *The Art of Computer Programming* di Donald Knuth. L'algoritmo descritto da Knuth è l'algoritmo NARA. Il valore restituito per le stringhe che non hanno una codifica soundex è definito tramite '$Text::Soundex::nocode'. Il valore predefinito è 'undef'; tuttavia valori come ''Z000'' sono alternative di uso comune. Per la compatibilità all'indietro con le versioni precedenti di questo modulo, '$Text::Soundex::nocode' viene esportato nello spazio dei nomi del chiamante come '$soundex_nocode'. In contesto scalare, 'soundex()' restituisce il codice soundex del suo primo argomento. In contesto di lista, viene restituita una lista in cui ciascun elemento è il codice soundex dell'argomento corrispondente passato a 'soundex()'. Ad esempio, il seguente codice assegna a @codes il valore '('M200', 'S320')': @codes = soundex qw(Mike Stok); Per usare 'Text::Soundex' per generare codici utilizzabili per cercare in uno dei censimenti USA disponibili pubblicamente, deve essere usata una variante dell'algoritmo soundex: use Text::Soundex; $code = soundex_nara($name); Segue un esempio di dove questi algoritmi differiscono: use Text::Soundex; print soundex("Ashcraft"), "\n"; # prints: A226 print soundex_nara("Ashcraft"), "\n"; # prints: A261