pdf - Universität zu Köln

}
}
push @codes,0 if $match eq " ";
$pos += length $match;
}
#The codes array now contains the encoded values. These may have to be
#split up into multiple keys. The needed processing is contained in the
#Format and CreateVariations function.
}
return Format (@codes);
sub Format
{
my @codes = @_;
my @variations = CreateVariations (@codes);
#decode and format internal data structures
foreach my $variation (@variations)
{
$_=join "", @$_;
s/(.)\1/$1/g;
substr ($_,1) =~ s/0//g if ($_>0);
$_.="0" x (6-length $_);
}
}
return @variations;
sub CreateVariations
{
my @codes = @_;
if (grep {/:/} @codes)
{
my $i;
68