Perl中给消息字符串添加STX(0x02)和ETX(0x03)失败问题排查

尝试使用Perl为消息字符串添加起始文本标识STX（十六进制0x02）和结束文本标识ETX（十六进制0x03），使用的代码如下：

my $hex02 = 0x02;
my $hex03 = 0x03;
my $hex02_ascii = sprintf "%c", $hex02;
my $hex03_ascii = sprintf "%c", $hex03;
$Message = $hex02_ascii.$Message.$hex03_ascii;

但结果不符合预期，首尾出现的是十六进制3F对应的问号，而非目标的0x02和0x03。预期格式为：STX（1字节，0x02）+ 负载数据datastring + ETX（1字节，0x03），请问问题出在哪里？

出现问号（0x3F）的核心原因是字符编码自动转换：Perl默认会把字符串按当前环境的编码（多为UTF-8）处理，0x02、0x03这类ASCII控制字符在UTF-8编码语境下没有对应的可打印映射，会被系统自动替换成替代字符"?"（0x3F）。

解决方法1：直接使用原始字节字面量 #

Perl支持用\xHH语法直接表示单个字节，跳过编码转换步骤，直接构造符合要求的字节序列：

$Message = "\x02" . $Message . "\x03";

这种方式直接生成包含0x02和0x03原始字节的字符串，不会触发编码替换。

解决方法2：标记字符串为二进制字节流 #

如果你的$Message原本是UTF-8编码的文本字符串，需要先关闭它的UTF-8标记，让Perl将其当作原始字节序列处理：

use Encode;
# 关闭字符串的UTF-8属性，转为二进制字节流
Encode::_utf8_off($Message);
# 拼接控制字节
$Message = "\x02" . $Message . "\x03";

验证结果 #

可以用以下代码检查最终字符串的字节内容，确认是否符合预期：

# 将字节序列转为十六进制字符串输出，查看首尾是否为02和03
print unpack("H*", $Message), "\n";

内容的提问来源于stack exchange，提问作者MSilk