charset/misc/trunicode

   1 #!/usr/bin/perl
   2
   3 foreach $file (@ARGV)
   4 {
   5         print "Converting $file\n";
   6
   7         open(fi, "<$file") || die;
   8         open(fo, ">$file-tr") || die;
   9         print fo "# $file charset file
  10 # Imported from ftp://ftp.unicode.org/Public/MAPPINGS/$file
  11 # (c) 2003, Robert Spalek <robert@ucw.cz>
  12
  13 ";
  14         while (<fi>)
  15         {
  16                 next if /^#/;
  17                 chop;
  18                 if (($code, $unicode, $comment) = /^0x(..)\t0x(....)\t#\t?(.*)$/)
  19                 {
  20                         print fo "$code\t$unicode\t$comment\n";
  21                 }
  22         }
  23         close(fo);
  24         close(fi);
  25 }