pdf - Universität zu Köln

# http://www.avotaynu.com/soundex.html
#
# Martin Wilz 2005-01-07
#
package Daitch::Mokotoff;
require 5.000;
$VERSION = ’1.0’;
#encodings for the beginning of the word
our %initial= (ai=>0,aj=>0,ay=>0,au=>0,a=>0,chs=>5,ei=>0,ej=>0,ey=>0,e=>0,
eu=>1,h=>5,ia=>1,ie=>1,io=>1,iu=>1,i=>0,oi=>0,oj=>0,oy=>0,
schtsch=>2,schtsh=>2,schtch=>2,shtch=>2,shch=>2,shtsh=>2,
stch=>2,stsch=>2,sc=>2,strz=>2,strs=>2,stsh=>2,st=>2,
szcz=>2,szcs=>2,szt=>2,shd=>2,szd=>2,sd=>2,ui=>0,
uj=>0,uy=>0,u=>0,ue=>0,y=>1,zdz=>2,zdzh=>2,zhdzh=>2,
zd=>2,zhd=>2,"\374"=>0,"\351"=>0,"\366"=>0,"\344"=>0
)
;
#encodings before a vowel
my %beforevowel=(ai=>1,aj=>1,ay=>1,au=>7,ei=>1,ej=>1,ey=>1,eu=>1,
oi=>1,oj=>1,oy=>1,
h=>5,ks=>5,sht=>2,scht=>2,schd=>2,
ui=>1,uj=>1,uy=>1
);
#encodings for any other context
my %other=(b=>7,chs=>54,ch=>"5:4",ck=>"5:45",cs=>4,cz=>4,csz=>4,czs=>4,c=>"5:4",
drz=>4,drs=>4,ds=>4,dsh=>4,dsz=>4,dz=>4,dzh=>4,dzs=>4,d=>3,dt=>3,
fb=>7,f=>7,g=>5,j=>"1:4",ks=>54,kh=>5,k=>5,l=>8,mn=>66,m=>6,nm=>6,n=>6,
p=>7,pf=>7,ph=>7,q=>5,rz=>"94:4",rs=>"94:4",r=>9,
schtsch=>4,schtsh=>4,schtch=>4,sch=>4,shtch=>4,shch=>4,shtsh=>4,
sht=>43,scht=>43,schd=>43,sh=>4,stch=>4,stsch=>4,sc=>4,strz=>4,
strs=>4,stsh=>4,st=>43,szcz=>4,szcs=>4,szt=>43,shd=>43,szd=>43,sd=>43,
sz=>4,s=>4,"\337"=>4,tch=>4,ttch=>4,ttsch=>4,th=>3,trz=>4,trs=>4,tsch=>4,tsh=>4,
tts=>4,ttsz=>4,tc=>4,tz=>4,ttz=>4,tzs=>4,tsz=>4,ts=>4,t=>3,
v=>7,w=>7,x=>"5:54",zdz=>4,zdzh=>4,zhdzh=>4,zd=>43,zhd=>43,
zh=>4,zs=>4,zsch=>4,zsh=>4,z=>4
);
65