pdf - Universität zu Köln

and ($beforevowel{$match}))
{
push @codes,$beforevowel{$match};
}
elsif ($other{$match})
{
push @codes,$other{$match};
}
else
{
push @codes,0;
}
last;
}
}
$pos += length $match;
#encode the rest of the input string
while ($pos < length $name)
{
$match = " ";
foreach my $multichar (@order)
{
if (substr ($name,$pos,length $multichar) eq $multichar)
{
$match = $multichar;
#check for vowel after the matched string and apply beforevowe rules
if ((substr ($name,$pos+length $match,1) =~/[aeiouy\374\351\366\344]/)
and ($beforevowel{$match}))
{
push @codes,$beforevowel{$match};
}
elsif ($other{$match})
{
push @codes,$other{$match};
}
last;
67