pdf - Universität zu Köln

package Text::German::Syllable;
#hash of sonority values
our %sonority = ("-"=>-1,k=>2,x=>2,c=>2,ck=>2,g=>2,q=>1,p=>2,t=>1,h=>1,
z=>1,s=>1,"\337"=>1,ch=>1,sch=>1,r=>5,l=>4,
b=>1,d=>1,v=>3,ph=>3,f=>2,w=>3,m=>4,n=>4,
j=>5,y=>8,"\374"=>8,i=>8,ih=>8,u=>8,uh=>8,e=>9,eh=>9,
"\351"=>9,"\366"=>9,"\351h"=>9,"\366h"=>9,o=>9,oh=>9,
"\344"=>10,"\344h"=>10,a=>11,ah=>11);
our @multichar;
sub new
{
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {@_};
our @multichar=sort {length $b length $a} grep {length $_>1} keys %sonority;
}
bless ($self, $class);
return $self;
#replace uncommon characters with accents by aequivalent ones
sub convertChars
{
my $text=shift;
$text=~tr/\’\140/\-\-/;
$text=~tr/\350\352\353/eee/;
$text=~tr/\347/c/;
$text=~tr/\340\341\342\343/aaaa/;
$text=~tr/\362\363\364/ooo/;
$text=~tr/\372\371\373/uuu/;
$text=~tr/\361/n/;
$text=~tr/\354\355\356/iii/;
$text=~tr/\304/e/;
$text=~s/~//g;
return $text;
}
71