intl/uconv/tools/adobe.pl

changeset 0
6474c204b198
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/intl/uconv/tools/adobe.pl	Wed Dec 31 06:09:35 2014 +0100
     1.3 @@ -0,0 +1,17 @@
     1.4 +#!/usr/local/bin/perl -w
     1.5 +# This Source Code Form is subject to the terms of the Mozilla Public
     1.6 +# License, v. 2.0. If a copy of the MPL was not distributed with this
     1.7 +# file, You can obtain one at http://mozilla.org/MPL/2.0/.
     1.8 +
     1.9 +while(<STDIN>)
    1.10 +{
    1.11 +  if(/^#/)
    1.12 +  {
    1.13 +      print $_;
    1.14 +  }
    1.15 +  else 
    1.16 +  {
    1.17 +     ($a, $b, $c,$d) = /^(....)(.)(..)(.*)$/;
    1.18 +     print "0x" . $c . $b . "0x" . $a .  $d . "\n";
    1.19 +  }
    1.20 +}

mercurial