" if $image; printf(" | %d;", $i) if $adducs; print " | $j | " . name($i); print " ($comment{$i})" if $comment{$i}; print " | $sources\n"; } else { printf("%04X \# ", $i); print pack("U", $i) . " " if $adducs; print name($i) ."\n"; } } print " |
"; $subline .= " | $j"; if (++$col == $width) { print " |
Number of occurences of source character set combinations:\n
$contribs{$j} | $j\n" if $html; } print " |
Compact representation of this character set:\n
Rows | Positions (Cells)" if $html;
print "\n# Plane 00\n# Rows\tPositions (Cells)\n" unless $html;
$current_row = '';
$start_col = '';
$last_col = '';
for $i (sort({$a <=> $b} keys(%used))) {
next if ($name{$i} eq "$row | " if $html;
print "\n $row\t" unless $html;
$len = 0;
$current_row = $row;
$start_col = '';
}
if ($start_col eq '') {
print "$col";
$len += 2;
$start_col = $col;
$last_col = $col;
} elsif (hex($col) == hex($last_col) + 1) {
$last_col = $col;
} else {
if ($last_col ne $start_col) {
print "-$last_col";
$len += 3;
}
if ($len > 60 && !$html) {
print "\n $row\t";
$len = 0;
};
print " " if $len;
print "$col";
$len += 2 + !! $len;
$start_col = $col;
$last_col = $col;
}
}
if (($last_col ne '') and ($last_col ne $start_col)) {
print "-$last_col";
print "" if $html;
}
print "\n" if ($current_row ne '');
print " | |
" if $html;
print "# " unless $html;
print "Number of characters in above table: ";
$count = 0;
for $i (keys(%used)) {
$count++ unless $name{$i} eq "