Searched defs:soundex (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/
H A DSoundex.pm6 @EXPORT = qw(&soundex $soundex_nocode);
10 # $Id: soundex.pl,v 1.2 1994/03/24 00:30:27 mike Exp $
12 # Implementation of soundex algorithm as described by Knuth in volume
27 # $Log: soundex.pl,v $
31 # the same soundex code. This showed up comparing it with Oracle's
32 # soundex output.
40 # $soundex_nocode is used to indicate a string doesn't have a soundex
45 sub soundex subroutine
88 $code = soundex $string; # get soundex cod
[all...]

Completed in 23 milliseconds