perl多行替换变长方法

Question

您能否提供一个 perl 脚本或命令来从文件中删除以下代码？在某些情况下，'-' 和 (void) 之间可能有空格。我尝试了很多变化，但没有让它发挥作用。谢谢！

-(void)dealloc {
    ... could be multiple lines here    
    [super dealloc];
}

以下是我尝试过的几件事：

perl -0777 -pe 's/- (void)dealloc.*\s*.*super dealloc];.*\n}//g' File.txt
perl -i -0pe 's/^'- (void)dealloc'.*\n.*[super dealloc];\n}$//' File.txt
perl -i -0pe 's/^-[ ](void)dealloc.*\n.*[super dealloc];\n}$//' File.txt
perl -i -0pe 's/^-\s(void)dealloc.*\n.*\\'[super dealloc]\';\n}$//' File.txt

Answer 1

• (、)、[ 和 ]、{ 和 } 在正则表达式模式中具有特殊含义。如果要匹配这些字符，则需要在模式中对它们进行转义。
• 您需要在 - 和 (void) 之间留有空格，即使您指出它应该是可选的。
• 您只匹配您说要匹配多行的一行。
• -0777 实际上是 slurp 模式，而不是 -0。
• 我没有得到那些报价？！？！

所以，

perl -i -0777pe's/^-[ ]?\(void\)dealloc.*?\[super dealloc\];\s*\}\n//msg' file

• /m 使 ^ 匹配在一行的开头，而不是（仅）在字符串的开头。
• /s 允许 . 匹配换行符。
• ? 或 [ ]? 可选地匹配一个空格。 （后者更容易阅读。）
• .*? 在该位置匹配最少。

Answer 2

我不会为您的问题提供完整的解决方案，但我想指出一种在此类情况下可能会有所帮助的技术。

它基于 Perl 中 .. 运算符的一个不太为人所知的行为。在标量上下文中，它充当双稳态布尔运算符。让我引用the documentation：

在标量上下文中，“..”返回一个布尔值。运营商是 双稳态，像触发器一样，模拟行范围（逗号） sed、awk 和各种编辑器的操作员。每个“..”运算符 保持其自己的布尔状态，即使跨调用子程序 包含它。只要它的左操作数是假的，它就是假的。 一旦左操作数为真，范围运算符保持为真，直到 右操作数为真，之后范围运算符变为假 再次。

这意味着您可以以更具表现力的方式编写解决方案，例如：

if ( /-[ ]?\(void\)dealloc/ .. /^\}/ ) {
  ... this code is executed when you enter the block ...
}

IMO 的优点是您不必直接处理内部块，并且您的意图对于阅读代码的人来说更加明显。我希望这会有所帮助。