3 # Use `recode` to create a translation table
4 # (c) 2003, Robert Spalek <robert@ucw.cz>
7 use open IN => ":utf8";
9 foreach $charset (@ARGV)
11 print "Charset: $charset\n";
12 open(fi, "recode -s -f $charset/..utf-8/ <tmp/tab256 |") || die "Recoding error";
13 open(fo, "| ./mkuni >tmp/$charset") || die;
18 (($number, $char) = /^([0-9A-F]{2})\t(.?)$/) || die "Cannot parse $_";
19 $recode[hex $number] = $char ne "" ? ord $char : -1;
21 $#recode >= 0 || die "Empty recoding table";
25 for ($i=0; $i<=$#recode; $i++)
27 printf fo "%02X\t%04X\n", $i, $recode[$i]