pdf - Universität zu Köln

push @units,$match;
$pos += length ($match);
}
# assign the characters their values. build string with comparison results for
# every two units. this allows pattern matching to be used for finding local minima
my $signs = join "",map {($sonority{$units[$_-1]} $sonority{$units[$_]})+1} (1.
my @tmp;
my $cnt = 0;
#use patterns in difference array to find onset minima and prepend a "-" as marker
foreach my $unit (@units)
{
push @tmp,$unit;
push @tmp,"-" if (substr ($signs,$cnt++) =~/^21*0/;
}
}
return join "",@tmp;
#Optional call into this module. This delivers a string, where syllable boundaries
#have been moved to obtain valid onsets for german words.
sub syllabify
{
my ($self,$text) = @_;
#handle foreign chars
$text=convertChars($text);
$out=$self->splitBySonority($text);
#correct onset, if invalid combinations are found. These rules are a first
#attempt and have to be evaluated
$out =~s/\-\-/-/g;
$out =~s/\-g([mn])/g-$1/g;
$out =~s/\-(s?ch)(ptkbdg)/$1-$2/g;
$out =~s/\-([dt]+z?)(s?ch|c?k)/$1-$2/g;
73