编辑流中特定偏移量的字节

Question

在awk程序中，我调用一些产生一组二进制字符串的命令，所有这些命令一起运行。

在每个字符串中：

• 偏移量0x04处的字节是类型代码
• 从偏移量0x09开始的四个字节是字符串的（小尾数）长度。

如果类型代码为0x20，我想将其更改为0x1E。

例：

第一个字符串的前几个字节是：

4a d8 64 54 13 01 00 00 00 2d 00 00 00

从偏移量0x04开始，我们看到类型代码为0x13，因此什么也不做。

从偏移量0x09开始，我们看到长度为2d 00 0000。将其从该字符串的开头向前移远，以查找下一个字符串的开头。

下一个字符串开始：

4a d8 64 54 20 01 00 00 00 2c 00 00 00

从偏移量0x04开始，我们看到类型代码为0x20。 将其更改为0x1E。

从偏移量0x09开始，我们看到长度为2c 00 0000。将其从该字符串的开头远移，以查找下一个字符串（或EOF）的开头。

哪种工具最适合呢？

Answer 1

我在perl中实现了一个解决方案。 我假设大小不包括13字节的标头。 它并不完全成熟，但是可以工作。 这是一种工作台模型。 它在内存中创建一些数据，然后进行修改。

因此，第一部分只是根据标题创建内存数据：

#!/usr/bin/perl

use strict;
use warnings;

# Glues binary strings -> not needed $a.$b works properly
#sub glue(@) { pack "W*", map { unpack("W*", $_) } @_; }

# Creates a <header:null data> record
sub pck(@) {
  my $h = pack "(H[2])*", @_;
  # If it is big-endian use N instead of V!!!
  # It has to be unpacked to get the 32 bit data size
  my @u = unpack "C5V2", $h;
  my $b = pack "x$u[6]"; # put a lot of NULL bytes

  $h.$b;
}

my @h1=qw(4a d8 64 54 13 01 00 00 00 2d 00 00 00);
my @h2=qw(4a d8 64 54 20 01 00 00 00 2c 00 00 00);
my $d1 = pck @h1;
my $d2 = pck @h2;
my $d = $d1.$d2;

现在$d包含两个记录： <header1><zero data1><header2><zero data2> 。 现在我们可以转储数据：

sub dumpbin(@) {
  open my $fh, "|od -t x1" or die;
  binmode $fh;
  print $fh @_;
  close $fh;
}

dumpbin($d);

输出：

0000000 4a d8 64 54 13 01 00 00 00 2d 00 00 00 00 00 00
0000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
*
0000060 00 00 00 00 00 00 00 00 00 00 4a d8 64 54 20 01
0000100 00 00 00 2c 00 00 00 00 00 00 00 00 00 00 00 00
0000120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
*
0000160 00 00 00
0000163

现在，可以根据需要解析和修改内存中的数据。 标头已转储。 偏移量以八进制打印，以与od的输出一致。

print "=====\n";
for (my $offs=0; $offs<length($d);) {
  # Unpack header
  my @h = unpack "C5V2", substr($d, $offs, 13);
  # Checks if the header type is 0x20 and modifies it
  if ($h[4] eq 0x20) { substr($d, $offs + 4, 1) = pack "W", 0x1e;}
  printf "%07o HDR: %s%s\n", $offs, join(" ", map {sprintf "%x", $_} @h),
    $h[4] eq 0x20 ? " *" : "";
  $offs += 13 + $h[6];
}
print "=====\n";

输出：（用“ *”标记的修改行）

=====
0000000 HDR: 4a d8 64 54 13 1 2d
0000072 HDR: 4a d8 64 54 20 1 2c *
=====

如果转储结果，可以看到数据已正确更改：

dumpbin($d);

输出：

0000000 4a d8 64 54 13 01 00 00 00 2d 00 00 00 00 00 00
0000020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
*
0000060 00 00 00 00 00 00 00 00 00 00 4a d8 64 54 1e 01
0000100 00 00 00 2c 00 00 00 00 00 00 00 00 00 00 00 00
0000120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
*
0000160 00 00 00
0000163

可以看出，数据已被修改。

如果输入文件很大，则需要更多代码来读取大块数据，进行修改和写回。

我希望这有帮助！