pdf - Universität zu Köln

my @codes2 = @codes;
for ($i = 0;$i < @codes;$i++)
{
last if $codes[$i]=~/:/;
}
#the colon is used as separator for multiple encoding possibilies
my @options = split ":" , $codes[$i];
my @results;
foreach (@options)
{
$codes[$i] = $_;
#call recursively
push @results, CreateVariations (@codes);
}
return @results;
}
}
1;
return \@codes;
11.3 Implementation von PHONEM
# Implementation of the PHONEM substitutions, as described in
# Georg Wilde and Carsten Meyer, Doppelgaenger gesucht -
# Ein Programm fuer kontextsensitive phonetische Textumwandlung
# ct Magazin fuer Computer & Technik 25/1998
#
# The original variant was implemented as X86-Assembler-Funktion. This implementation
# does not try to mimic the original code, though it should achieve equal results.
# As the original software used for building the original implementation was not
# available, there was no testing for correctness, other than the examples given
# in the article
#
# Martin Wilz 2005-01-09
package PHONEM;
69