4 print STDERR "Usage: $0 <charmap in> <charmap out> <offset>\n";
5 print STDERR "offset should be in hex and can be prefixed with a -.\n";
11 $offset = hex($ARGV[2]);
13 open(FIN, "$fin.TXT") or die "Cannot open $fin.TXT for reading";
14 open(FOUT, ">$fout.TXT");
16 foreach my $l (<FIN>) {
17 my @a = split(" ", $l);
19 if ($a[0] =~ /^0x[0-9a-fA-F]+$/) {
20 my $c = length($a[0]);
21 my $h = hex($a[0]) + $offset;
23 $l = sprintf("0x%*X%s", $c - 2, $h, substr($l, $c));