アルファベットのコードポイント、コード表

Perl

文字 10進数 16進数   文字 10進数 16進数   文字 10進数 16進数  
a 97 61   b 98 62   c 99 63  
d 100 64   e 101 65   f 102 66  
g 103 67   h 104 68   i 105 69  
j 106 6a   k 107 6b   l 108 6c  
m 109 6d   n 110 6e   o 111 6f  
p 112 70   q 113 71   r 114 72  
s 115 73   t 116 74   u 117 75  
v 118 76   w 119 77   x 120 78  
y 121 79   z 122 7a   A 65 41  
B 66 42   C 67 43   D 68 44  
E 69 45   F 70 46   G 71 47  
H 72 48   I 73 49   J 74 4a  
K 75 4b   L 76 4c   M 77 4d  
N 78 4e   O 79 4f   P 80 50  
Q 81 51   R 82 52   S 83 53  
T 84 54   U 85 55   V 86 56  
W 87 57   X 88 58   Y 89 59  

  • 上記テーブルはCGIモジュールの練習を兼ねて作りました。後で見直す余地がかなりありますが。。
use strict;
use warnings;
use CGI;

my $q = CGI->new;
my $style = q{
	td {background-color:#ccffcc}
	th {background-color:#ccccff}
};
my @tr = (
	$q->Tr($q->th(&getTH)),
	&getRows,
);
print 
#	$q->header( -charset => 'UTF-8' ),
#	$q->start_html(
#		-style => { -verbatim => $style }
#	),
	$q->table(
		{ -border => 1 },
		@tr
	);

sub getTH {
	my @rows = map{ qw/文字 10進数 16進数 &nbsp/ } 1..3;
	return \@rows;
}
sub getRows {
	my $flag = 1;
	my @rows = ();
	my @all = ();
	for my $w ('a'..'z', 'A'..'Z'){
		my $num = ord($w);
		push @rows, sprintf("%s", $w);
		push @rows, sprintf("%d", $num);
		push @rows, sprintf("%x", $num);
		push @rows, ' ';
		if($flag++ == 3){
			push @all, $q->Tr($q->td(\@rows));
			@rows = ();
			$flag = 1;
		}
	}
	return @all;
}