perl - 如何在 perl 中创建和使用字节数组？

Question

$var = pack "C2", 0x20, 0x30;
似乎工作得很好，但现在如何处理数组的元素？对元素进行更改？如果可能，就地。打包/解包语义不是很友好。

目前我正在使用 substr($var, $index, 1, substr($var, $index, 1) + 10)就地向元素添加 10。

对于初始化器，如果我需要一个 100 字节的 0x20 数组，最好的方法是什么？ $var = "\x20" x 100有效，这是“正确”的方式吗？

Answer 1

两个问题，两个答案:

问:似乎工作得很好，但现在我如何处理数组的元素？

A. vec () 是你的 friend :

vec($var, $index, 8) += 10;

会做你想做的。

问:对于初始化器，如果我需要一个 100 字节的 0x20 数组，最好的方法是什么？ $var = "\x20"x 100 有效，这是“正确”的方式吗？

A. 在我的书中没问题。