SED：模式匹配后删除行，同时跳过几行，然后删除模式行

Question

假设我想删除模式之后的一些行，同时跳过中间的一些行，然后删除模式本身的行。我可以使用以下两个命令来做到这一点：

sed -i '/PATTERN/{n;n;n;n;n;n;N;N;N;N;d}' file  # match pattern, skip 5 lines, then delete 5 consecutive lines
sed -i /PATTERN/d file  # delete line with pattern

但我想在一个命令中执行此操作。这里的问题很明显，因为模式更改会影响两个表达式，因此必须在单个表达式中指定更改。有没有办法做到这一点？

更新：

示例输入：

...
ifeq ($(ose),)
    dh_installdocs \
        $(archdir)/UserManual*.pdf $(archdir)/VirtualBox*.chm \
        $(addprefix $(archdir)/, LICENSE)
    rm $(addprefix $(archdir)/,UserManual*.pdf VirtualBox*.chm \
        LICENSE)
else
    dh_installdocs \
        $(archdir)/UserManual*.pdf
    rm $(addprefix $(archdir)/,UserManual*.pdf)
endif
...

示例输出：

...
    dh_installdocs \
        $(archdir)/UserManual*.pdf $(archdir)/VirtualBox*.chm \
        $(addprefix $(archdir)/, LICENSE)
    rm $(addprefix $(archdir)/,UserManual*.pdf VirtualBox*.chm \
        LICENSE)
...

更新 2：

示例文件可以在这里获取：http://download.virtualbox.org/virtualbox/5.0.4/VirtualBox-5.0.4.tar.bz2(debian/rules)

Answer 1

求救！

awk 's&&s--{print;next} d&&d--{next} /pattern/{d=5;s=5;next} 1'

使用 Ed Morton 的 smart counters 设置 s 跳过和 d 删除

对于您的模式，您需要转义特殊字符

awk 's&&s--{print;next} d&&d--{next} /\(\$\(ose\),\)/{d=5;s=5;next} 1'

Answer 2

另一种方法：

sed '/($(ose),)/,/^endif/{/($(ose),)/d;/^else/,/^endif/d}' file

输出：

... dh_installdocs \ $(archdir)/UserManual*.pdf $(archdir)/VirtualBox*.chm \ $(添加前缀 $(archdir)/, 许可证) rm $(addprefix $(archdir)/,UserManual*.pdf VirtualBox*.chm \ 执照） ...

添加选项-i 以“就地”编辑。

Answer 3

这是一种使用 awk 的方法：

awk '/ifeq/ { n = 6; next } n && !--n { c = 1 } c && c++ < 6 { next }1' file

看起来有点棘手，但逻辑如下：

• 当模式/ifeq/匹配时，将变量n设置为6并跳过该行
• n && !--n 仅在 n 为 1 时为真（这样写，n 只会递减直到达到 0）
• 设置c 后，跳过每一行直到c 达到6
• 末尾的1 表示打印任何未跳过的行（默认操作为
  { print }。

Answer 4

如果它不必是sed，我会提供perl 可以在“sed 模式”下工作，并使用正则表达式以及一些更复杂的脚本逻辑。

例如一个for循环：

#!/usr/bin/env perl
use strict;
use warnings;

while ( <DATA> ) {
   if ( m/ifeq\ \(\$\(ose\)\,\)/ ) {

       print "". <DATA> for 1..5;
       <DATA> for ( 1..5 );
   }
   else { print };
}

__DATA__
...
ifeq ($(ose),)
    dh_installdocs \
        $(archdir)/UserManual*.pdf $(archdir)/VirtualBox*.chm \
        $(addprefix $(archdir)/, LICENSE)
    rm $(addprefix $(archdir)/,UserManual*.pdf VirtualBox*.chm \
        LICENSE)
else
    dh_installdocs \
        $(archdir)/UserManual*.pdf
    rm $(addprefix $(archdir)/,UserManual*.pdf)
endif
...

你可以像 sed 那样做“内联”：

perl -i -ne 'if ( m/ifeq\ \(\$\(ose\)\,\)/ ) { print "". <> for 1..5; <> for ( 1..5 );} else {print}'

或者，您可以使用 perl 的“范围运算符”来检测您是否介于两种模式之间。不过，这更多地取决于文件的其余部分（我假设“else”...“endif”并不罕见）。