RetroZilla/intl/uconv/tools/adobe.pl

14 lines
193 B
Perl
Raw Normal View History

2015-10-21 05:03:22 +02:00
#!/usr/local/bin/perl -w
while(<STDIN>)
{
if(/^#/)
{
print $_;
}
else
{
($a, $b, $c,$d) = /^(....)(.)(..)(.*)$/;
print "0x" . $c . $b . "0x" . $a . $d . "\n";
}
}