gecko-dev/intl/uconv/tools/adobe.pl
1999-08-03 21:08:41 +00:00

14 lines
193 B
Perl

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