在 shell 脚本中对多行模式使用正则表达式

这是一个简单的 Awk 脚本，它提取之后的第一个令牌，并在替换文本中使用该令牌。class="

awk '/<div class="/ { sub(/.*<div class="/, ""); sub(/[" ].*/, "");
    class=$0; print "<--", class, "start -->"; next }
  /<\/div>/ { print "<--", class", "end -->"; class=""; next }
  1' file >new

就正则表达式匹配而言，这里没有“多行”，只是一个简单的工具，用于记住行之间的某些状态。Awk 仍然一次检查一行（尽管如果需要，更改它也不难;RS

这可能对你有用 （GNU sed）：

sed -E '/^<div class="([^ "]*).*/{
          s//<!-- \1 start -->/;h;:a;n;/^<\/div>$/!ba;g;s/\bstart/end/}' file

匹配起始 div。

将该行操作为所需的格式并制作副本。

打印/获取下一行，直到结束 div。

将该行替换为副本，并替换为并打印结果。startend

重复。

对于初学者来说，这里有一个简单的方法，适用于我对特定发布文本的测试

s{<div\s+ class="(\S+) (.*?) </div>}{<!-- $1 --> $2 <!-- $1 end -->}sxg;

修饰符是：这样也匹配换行符（通常不匹配），这样文字空格就会被忽略，这有助于可读性，并且这样才能继续通过字符串，匹配和替换。s.xg

为此，我建议在文件中使用一个程序，而不是命令行程序（“单行”），但由于这里的问题中特别要求这样做

perl -0777 -wpe'
    s{<div\s+ class="(\S+) (.*?) </div>}{<!-- $1 --> $2 <!-- $1 end -->}sxg'

该开关使它把整个文件读入变量中，这是 Perl 中许多东西的默认值——在这种情况下是正则表达式的运算符。请参阅 perlrun 中的开关。-0777$_s{}{}

---

在一个更大、更结构化的程序中，你也许可以在变量中拥有开始和结束模式，因为

s{$pbeg (.*?) $pend}{...}sxg

在这种情况下，它会在哪里

my $pbeg = qr{<div\s+ class="(\S+)};
my $pend = qr{</div>}

但是，如果这些模式变得复杂，这可能会变得笨拙/

在第一个示例中，将 GNU awk 用于第三个参数以匹配 （） 和强类型的正则表达式常量：

$ cat defs1.awk
BEGIN {
    begReg = @/<div\s+class="([^" ]+)/
    endReg = @/<\/div>/
    begFmt = "<!-- %s start -->"
    endFmt = "<!-- %s end -->"
}

$ cat common.awk
match($0,begReg,a) {
    key = a[1]
    $0 = sprintf(begFmt,key)
}
match($0,endReg,a) {
    $0 = sprintf(endFmt,key)
}
{ print }

$ awk -f defs1.awk -f common.awk file1
Some text
<!-- firstClass start -->
    Some random stuff
<!-- firstClass end -->
Random Text
<!-- thirdClass start -->
    Some random stuff
    < is something
    < but not /> This
<!-- thirdClass end -->
<!-- fourthClass start -->
    Some random stuff
<!-- fourthClass end -->
Final Text

对于您的第二个示例，我们只需要一个新的定义文件，但可以从上面重用：common.awk

$ cat defs2.awk
BEGIN {
    begReg = @/PATTERN "([^" ]+)/
    endReg = @/END PATTERN/
    begFmt = "NEW PATTERN - %s"
    endFmt = "END NEW PATTERN - %s"
}

$ awk -f defs2.awk -f common.awk file2
Some random text before my pattern
NEW PATTERN - info
  random stuffs
END NEW PATTERN - info
Some random stuff after pattern

请注意，我们只是在 2 个文件的部分中定义所需的输入正则表达式和输出格式，我们不会更改 .所依赖的只是，您可以在正则表达式中定义与开始分隔符匹配的第一个捕获组，以包含要在开始行和结束行中保留/打印的关键信息。BEGINdefs*.awkcommon.awk

你并不严格需要 endReg 匹配，但我使用它，以防你将来需要为其他结束分隔符格式调整它。match()

只需更改为执行与所有其他工具相同的 pseduo 就地编辑即可。awkawk -i inplace