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

Question

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

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

打印"\xcc"；

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

请帮忙。

Answer 1

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

print "x0Dx0Ax0C";

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

print "nx0C";

如果$的默认值（unde，在这里充当一个空字符串）发生了更改，则可能会附加额外的字符（但不会像您显示的那样预先加上）。您可以在print:之前使用以下命令暂时撤消该效果

local $;