如何解析在 Perl 中解压的空格分隔的 STDIN 十六进制字符串？

Question

我有一个 Java 程序，它以空格分隔的十六进制格式吐出通过网络接收的 16 字节原始数据包。由于我不想更改该代码，因此我将结果通过管道传递给 Perl 脚本，理论上，该脚本可以简单地将其从 STDIN 解压为可识别的变量。以下是我的 Perl 文件的行输入示例：

FF FF 09 7D 10  01  07  01 00  02 00  1D 00  00 00  00 00  06 00  07 00 
|--garbage-----|c--|c--|int---|int---|int---|int---|int---|int---|int---|

（c 代表 char/byte，int 代表 16 位整数变量）

我最初想使用 unpack 将每个输入行干净地分离为变量我需要。但是，由于字符串中的空格分隔，我不确定如何处理它（我可以使用“A”作为模板，但我也可能只使用 split！）

有没有一种优雅的方式使用 解压()？我不是 Perl 大师，但另一种方法是，正如我之前建议的那样，使用 split ，然后手动将每个十六进制转换为字节，然后使用位操作和掩码来获得我想要的。还有其他建议吗（如果 unpack 不能挽救局面）？

Answer 1

假设这些 int 是大端顺序， use

#! /usr/bin/perl

use warnings;
use strict;

# for demo only
*ARGV = *DATA;

while (<>) {
  my @fields = unpack "x5C2n7",
               pack "C*",
               map hex, split;

  print "[", join("][" => @fields), "]\n";
}

__DATA__
FF FF 09 7D 10 01 07 01 00 02 00 1D 00 00 00 00 00 06 00 07 00

它首先根据它们的值打包字节 (C*)。 unpack 模板包含以下部分：

• x5 跳过五个字节
• C2 解码两个 unsigned char 值
• n7 解码七个 16 位大端无符号整数

输出：

$ ./dump-packets
[1][7][256][512][7424][0][0][1536][1792]

Answer 2

如果您想对未打包的数据使用 unpack，则需要先将其再次打包。在执行此操作之前，您需要删除空格。

换句话说，

$line =~ tr/ //d;          # remove spaces
$line = pack 'H*', $line;  # convert hex to binary
# Now you can use unpack.