29 lines
466 B
Perl
29 lines
466 B
Perl
|
#!/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";
|