String::Nysiis
Nysiis (NNew York State Identification and Intelligence System)
phonetic encoding algorithm. Similar in nature to the Soundex,
Metahpone, and DoubleMetaphone algorithms.
use String::Nysiis qw(nysiis);
my $enc = nysiis($string);
print nysiis('Larry'),"\n"; # should print LARY
Any advice on name/content/etc?
Thanks for your time,
Kyle R. Burton
KRBURTON
--
------------------------------------------------------------------------------
Of course power tools and alcohol don't mix. Everyone knows power tools
aren't soluble in alcohol... -- Crazy Nigel
[EMAIL PROTECTED] http://www.voicenet.com/~mortis
------------------------------------------------------------------------------