2 # Import charset tables from ftp.unicode.org
3 # (c) 2003, Robert Spalek <robert@ucw.cz>
7 print "Converting $file\n";
8 ($prefix, $filename) = $file =~ m|^(.*/)([^/]*)$|;
10 open(fi, "<$file") || die;
11 open(fo, ">$file-tr") || die;
12 print fo "# $filename charset file
13 # Imported from ftp://ftp.unicode.org/Public/MAPPINGS/$file
14 # (c) 2003, Robert Spalek <robert\@ucw.cz>
21 if (($code, $unicode, $comment) = /^0x(..)\t0x(....)\t#\t?(.*)$/)
23 print fo "$code\t$unicode\t$comment\n";