使用perl一行程序：

$ cat input.txt
some text
/*%SKIP% line comment %SKIP%*/
some text
/*%SKIP%
block
comment
I could contain everything except the end sequence
%SKIP%*/
some text
$ perl -0777 -pe 's{\R?/\*%SKIP%.*?%SKIP%\*/}{}sg' input.txt
some text
some text
some text

字符串
这将一次读取整个文件（-0777、perl 5.36.0及更新版本可以使用-g），并替换每个SKIP块（可选，前面有换行符;使用.*?进行非贪婪匹配，因此它不会匹配第一个/*%SKIP%和最后一个%SKIP%*/之间的所有内容，s选项允许.匹配换行符（g意味着像sed中一样每次匹配）。

使用awk

$ awk '/\/\*%SKIP%/,/%SKIP%\*\//{next}1' file
some text
some text
some text

字符串

使用GNU awk和适当的regex作为字段分隔符。FS基本上是：

/*%SKIP%[^(%SKIP%*/)*]%SKIP%*/

字符串
即开始标记，除了结束标记之外的任何标记，结束标记：

$ gawk 'BEGIN {
    RS="^$" # slurp the file in, it is now a single big record
    FS="/\\*%SKIP%([^%]|%(%|S(%|K(%|I(%|P%(SKIP%)*(%|*%|S(%|K(%|I%)))))))*([^S%]|S([^K%]|K([^I%]|I([^P%]|P([^%]|%(SKIP%)*([^S%*]|*[^%/]|S([^K%]|K([^I%]|I([^P%]|P[^%]))))))))))*(%(%|S(%|K(%|I(%|P%(SKIP%)*(%|*%|S(%|K(%|I%)))))))*(S((K(IP?)?)?|KIP%(SKIP%)*(*|S(K(IP?)?)?)?))?)*%SKIP%\\*/"
    OFS=""  # set OFS to empty
}
{
    $1=$1   # rebuild the record ie. replace field separators
    print   # and output
}' file

型
输出量：

some text

some text

some text

型
空行是%SKIP%*/后面的新行。
它可能会或可能不会修复正则表达式在其他awk上的工作。我尝试了几个，失败和失去耐心。我在摆弄正则表达式和grep -z -v -o，但首先，后两个开关不能很好地合作。