pdf - Universität zu Köln

our @initial;
our @order;
sub new
{
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {};
#sort keys of hashes by length for faster access in the encoding methods
@initial= sort {length $b length $a} (keys %initial, keys %beforevowel,keys %ot
@order= sort {length $b length $a} (keys %other, keys %beforevowel);
}
bless ($self, $class);
return $self;
sub generateKeys
{
my ($class,$name) = @_;
$name=~s/\s+//g;
my $pos = 0;
my @codes;
my $match = " ";
#encode first character
foreach my $char (@initial)
{
if (substr ($name,0,length $char) eq $char)
{
$match = $char;
if ($pos == 0 and $initial{$match})
{
push @codes,$initial{$match};
}
elsif ((substr ($name,$pos+length $match,1) =~/[aeiouy\374\351\366\344]/)
66