" 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 "