The Tor Browser / file comparison
comparison: intl/uconv/tools/adobe.pl
intl/uconv/tools/adobe.pl
- branch
- TOR_BUG_9701
- changeset 15
- b8a032363ba2
equal
deleted
inserted
replaced
| -1:000000000000 | 0:93814434dc95 |
|---|---|
| 1 #!/usr/local/bin/perl -w | |
| 2 # This Source Code Form is subject to the terms of the Mozilla Public | |
| 3 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 4 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
| 5 | |
| 6 while(<STDIN>) | |
| 7 { | |
| 8 if(/^#/) | |
| 9 { | |
| 10 print $_; | |
| 11 } | |
| 12 else | |
| 13 { | |
| 14 ($a, $b, $c,$d) = /^(....)(.)(..)(.*)$/; | |
| 15 print "0x" . $c . $b . "0x" . $a . $d . "\n"; | |
| 16 } | |
| 17 } |
