intl/uconv/tools/adobe.pl
author hg@mozilla.com
Thu, 22 Mar 2007 10:30:00 -0700
changeset 1 9b2a99adc05e53cd4010de512f50118594756650
child 98529 f4157e8c410708d76703f19e4dfb61859bfe32d8
permissions -rw-r--r--
Free the (distributed) Lizard! Automatic merge from CVS: Module mozilla: tag HG_REPO_INITIAL_IMPORT at 22 Mar 2007 10:30 PDT,

#!/usr/local/bin/perl -w
while(<STDIN>)
{
  if(/^#/)
  {
      print $_;
  }
  else 
  {
     ($a, $b, $c,$d) = /^(....)(.)(..)(.*)$/;
     print "0x" . $c . $b . "0x" . $a .  $d . "\n";
  }
}