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 +}