intl/uconv/tools/adobe.pl

   1 #!/usr/local/bin/perl -w
   2 while(<STDIN>)
   3 {
   4   if(/^#/)
   5   {
   6       print $_;
   7   }
   8   else
   9   {
  10      ($a, $b, $c,$d) = /^(....)(.)(..)(.*)$/;
  11      print "0x" . $c . $b . "0x" . $a .  $d . "\n";
  12   }
  13 }