pdf - Universität zu Köln

# counts syllables in input text by using splitBySonority.
sub countSyllables
{
my ($self,$text)=@_;
#handle foreign characters
$text=convertChars($text);
my $out=$self->splitBySonority($text);
$out =~s/\-\-/-/g;
$out =~s/o(h?a)/o-$1/g;
#handle oa as syllable boundary
}
my @out =split ’-’,$out;
return scalar @out;
#split text by maximising onsets. As we are using graphemes, some of them have to be
#multiple characters long e.g. or
sub splitBySonority
{
my ($self,$name)=@_;
my $pos = 0;
my @units;
#build array of graphemic units. these are graphemes, that are not
#separatable and would result in wrong minima, if matched as single graphemes
while ($pos < length ($name))
{
my $match;
#first try to match
foreach my $m (@multichar)
{
$match = $m, last if ((substr $name,$pos,length ($m)) eq $m);
}
#use current char, if multiple characters do not match
$match ||= substr $name,$pos,1;
72