Select Code to Download

#!/usr/bin/perl
# Id: unicount.pl
...
  print "\n" ;

__END__

xdigit
    22 /194522 =  0.011%  (lower:     6, upper:     6)
...

cntrl
  6473 /194522 =  3.328%

#!/usr/bin/perl
use warnings;
...
    printf ("%5d %5x %s %s\n", $c, $c, $s, charnames::viacode($c));
    }
}

   48    30 0 DIGIT ZERO
   49    31 1 DIGIT ONE
...
66727 104a7 ð𐒧 OSMANYA DIGIT SEVEN
66728 104a8 ð𐒨 OSMANYA DIGIT EIGHT
66729 104a9 ð𐒩 OSMANYA DIGIT NINE

#!/usr/bin/perl -l

...
}

__END__