Perl：使用正则表达式将十六进制编码的字符串解析为数组

Question

我对 Perl 开发很陌生，我想执行以下任务：

我的脚本接收十六进制编码的字符串作为命令行参数。然后我必须解码这个字符串并将其写入输出文件，如 C++ 数组，并根据给定的数据进行初始化。例如：

perl myscript.pl DEADBABEDEADBEEF 输出类似于

const boost::array; MyArray = { 0xDE, 0xAD, 0xBA, 0xBE, 0xDE, 0xAD, 0xBE, 0xEF };

使用 Perl 正则表达式执行此操作的正确方法是什么？当然，我可以用子字符串循环执行它，但我相信应该有更优雅的方式。

编辑：输入字符串是固定长度的。

Answer 1

试试这个：

my $hex = "DEADBABEDEADBEEF";
my @a = map "0x$_", $hex =~ /(..)/g;

它是如何工作的：

首先，列表上下文中的 $hex =~ /(..)/g 捕获所有 2 字符子字符串（/g 标志表示全局匹配）。然后 map() 获取列表并将其转换为另一个列表，对第一个列表的每个元素使用 "0x$_" 表达式 ($_< /code> 这里是元素的别名）。

另请参阅 perldoc -f map。

Answer 2

这个怎么样：

my $input = $ARGV[0];
die "Fouled up input" unless $input =~ /^(?:[0-9A-F]{2})+$/i;
my $bytes = length ($input) / 2;
print "const boost::array<char, $bytes> MyArray = {";
while ($input =~ s/([0-9A-F]{2})//i) {
    # print $input # to see how this works, see comment.
    print "0x$1, ";
}
print "};\n";

Answer 3

拆包怎么样？

print join ",", unpack("(A2)*", "DEADBABEDEADBEEF");

更正 - 您需要一个映射来为解包返回的每个元素添加“0x”前缀

print join ",", map { '0x' . $_ } unpack("(A2)*", "DEADBABEDEADBEEF");