charset/misc/mktab256

   1 #!/usr/bin/perl
   2 #
   3 #  Simply create a table of all 256 characters
   4 #  (c) 2003, Robert Spalek <robert@ucw.cz>
   5 #
   6
   7 use open OUT => ":raw";
   8
   9 open(fo, '>tmp/tab256') || die;
  10 for ($i=0; $i<256; $i++)
  11 {
  12         next if $i==10 || $i==13;
  13         printf fo "%02X\t%c\n", $i, $i;
  14 }
  15 close(fo);