hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added perl version (uses Unicode).

This commit is contained in:
hjp 2012-04-02 15:00:46 +00:00
parent 2aa370cff1
commit 03ebbfe2ec
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
chartab/chartab.pl Executable file
View File

@ -0,0 +1,28 @@
#!/usr/bin/perl
use warnings;
use strict;
use charnames ();
use Getopt::Long;
use Pod::Usage;
my $all;
GetOptions(
'all' => \$all
) or pod2usage(2);
binmode STDOUT, ":encoding(UTF-8)";
for my $c (0 .. 0xFFFF) {
my $cc = pack('U', $c);
if (charnames::viacode($c) || $all) {
printf("%04x %5d %06o %s %s\n",
$c,
$c,
$c,
(($cc =~ /[[:print:]]/) ? $cc : '.'),
charnames::viacode($c) || ''
);
}
}
print "\n";