使用perl代码在文件中添加HEX字符

Question

我必须编写perl代码，在文件中的“END OF REPORT”命令之前输入文件中的十六进制字符。我想添加0D 0A 0C。

我正在使用以下命令打印这个：

打印 “\ X0C”;

这是打印：0D 0A 0D 0A 0C

请帮助。

Answer 1

在二进制句柄上打印所需的0D 0A 0C：

print "\x0D\x0A\x0C";

使用0D 0A 0C图层（Windows默认设置）在句柄上打印所需的:crlf：

print "\n\x0C";

如果$\已从其默认值（undef，在此处作为空字符串）更改，则可能会附加额外的字符（但不会在显示时添加前缀）。您可以在print：

之前使用以下内容暂时撤消该效果

local $\;