pdf - Universität zu Köln

package Koelner::Phonetik;
require 5.000;
$VERSION = ’1.0’;
use strict;
#Umlauts are given by their octal code according to ISO-8859-1
our $vowels = "aeioujy\374\351\366\344";
sub new
{
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {};
}
bless ($self, $class);
return $self;
sub generateKey
{
my ($self,$input)=@_;
my @text=split /\s*/,$input;
my $key="";
#handle begin
my ($char,$nextchar)=@text;
#encode first char with special rules for word beginning
if (index ($vowels,$char) >= 0)
{
$key="0";
}
else
{
if (($char eq "c") and index ("agjkiqruxq",$nextchar) >= 0)
62