刪除花括號之間多余的空行

Question

在這種情況下，我想從命令行運行perl表達式以刪除大括號之間的多余行：

  // some code
  }
       <-- empty line to remove
}
// more code

Answer 1

如果僅當第二個花括號在行的開頭時才希望這樣做：

perl -0777 -pi -we's/}\n\n}/}\n}/g' filename

即使縮進：

perl -0777 -pi -we's/}\n(\n[^\S\n]*(?=}))/}$1/g' filename

如果“空”行或第一個大括號之后可能有多余的空格：

perl -0777 -pi -we's/(}[^\S\n]*\n)[^\S\n]*\n([^\S\n]*(?=}))/$1$2/g' filename

Answer 2

您可以使用regex用\\n$1替換(?<=})\\s*\\n(?:\\s*\\n)+(\\s*}) 。 不幸的是，我不了解perl，所以我不介意有人竊取此模式來編寫完整答案。