pdf - Universität zu Köln

{
$key="4";
}
else
{
my $advance=0;
($key,$advance)=$self->getcode ($text[0],$text[1]);
shift @text if $advance;
}
}
shift @text;
#loop over the rest of the string
while (@text)
{
my ($code,$advance) = $self->getcode ($text[0],$text[1]);
#print "$text[0],$text[1],$code\n";
$key .= $code;
shift @text;
shift @text if $advance;
}
my $firstchar=substr $key,0,1;
#remove doubles, vowels function as separators, as they are encoded
#as "0"
$key=~tr///cs;
#remove vowel separators
$key=~tr/0//d;
#reconstruct first char if it is a vowel
$key=$firstchar.$key if $firstchar eq "0";
}
return $key;
#function for encoding a character. The next character is used as context information
63