替换最后出现的 HEX 文件 - Perl 正则表达式

Question

我正在 bash 中构建一个编辑二进制文件的脚本。 我管理了如何实现第一次出现替换和所有出现替换，但我无法管理如何替换最后一次出现。

脚本必须用 F0 替换 F8 字节。

这是 ALL 和 FIRST 的代码：

全部

perl -pe 's/\x{F8}/\x{F0}/g' < CS.midi > CSnew.midi 

第一的

perl -pe 's/\x{F8}/\x{F0}/' < CS.midi > CSnew.midi 

关于替换最后一次出现的 F8 有什么建议吗？

Answer 1

甚至不需要使用正则表达式：

perl -0777 -pe 'substr $_, rindex($_, "\xF8"), 1, "\xF0"' CS.midi > CSnew.midi

读取整个文件，并替换最后出现的匹配字节。

Answer 2

首先，您更改第一个的代码不正确。 您一次读取一行文件，它会更改每行的第一行。 这意味着更改第一个，以及每个 LF (0x0A) 之后的第一个。

-0777将导致整个文件被视为一行。

perl -0777pe's/\xF8/\xF0/g'        # All
perl -0777pe's/\xF8/\xF0/'         # First
perl -0777pe's/^.*\K\xF8/\xF0/s'   # Last