#!/usr/local/bin/perl -w #This script prints HTML character entities number;. #Usage: this_script > char.html #The line below can be used in a CGI script to send the HTTP header in place of #the HTML tag. #print "Content-type: text/html; Accept-Charset: 'UTF-8'\n\n"; #You can force fixed width on most characters by using #span {background-color:white;font-family:monospace;font-weight:bold} #in the style block below. But overlapping characters such as 777 no longer overlap. print "
This table is generated by char.pl. Each table cell contains character code in decimal, comma, character code in hexidecimal, character entity rendered in your browser using browser default font in UTF-8 charset. Characters may have different width. Some even take no space and overlap on previous characters (e.g. characters 768, 777 etc).
"; } print " |
", $code, (sprintf ",%lx", $code), "", $code, "; | "; } print "