regex - Perl:替换二进制内容

Question

我需要用 Perl 中的一些其他内容(文本或二进制)替换二进制内容。

如果内容是文本，我可以使用 s///来替换内容。

 my $txt = "tomturbo";
 $txt =~ s/t/T/g;      # TomTurbo

但如果内容是二进制的，那将不起作用。

有没有简单的方法来处理这个问题？？

谢谢!

Answer 1

Perl 的正则表达式引擎可以处理任意字符串。

s/t/T/g

和

没什么不同

s/\x{74}/\x{54}/g

意味着它会将字符的值从 74₁₆ 更改为 54₁₆。正则表达式引擎不关心值 74₁₆ 是表示 t 还是其他。

在二进制数据中，字符 A₁₆ 不表示一行的结束，因此您需要使用 s 标志，避免使用 m 标记，并避免使用 $。

此外，您会发现 i 标志和内置字符类(例如 \d、\p{Letter} , 等) 无用，除非你匹配解码文本的字符串(Unicode 代码点的字符串)，但你可以使用正则表达式引擎的任何功能。