sed - 替换字符串，但仅当该字符串在特定行之前最后一次出现时

Question

我正在将自定义标记语言转换为 TeX。
我有一个这样的文件:

\macro{stuff}
{more stuff}
{yet other stuff}
{some stuff}
these are extra lines
another extra line
there can be any number of extra lines
e

\macro{yet more stuff stuff}
{even more stuff}
{yet other stuff}
{some stuff}
this is extra
this is extra too
e

我需要的结果是这样的:

\macro{stuff}
{more stuff}
{yet other stuff}
{some stuff}{
these are extra lines
another extra line
there can be any number of extra lines
}

\macro{yet more stuff stuff}
{even more stuff}
{yet other stuff}
{some stuff}{
this is extra
this is extra too
}

通知 e单独在一行上，表示一组数据的结尾，它只是被一个右括号替换。
我可以简单地使用这个:

sed -i 's/^e$/}/g' file.tex

结果是这样:

\macro{stuff}
{more stuff}
{yet other stuff}
{some stuff}
these are extra lines
another extra line
there can be any number of extra lines
}

\macro{yet more stuff stuff}
{even more stuff}
{yet other stuff}
{some stuff}
this is extra
this is extra too
}

问题是，我还需要一个匹配的起始括号来包围 e 之前的这个额外文本。 .
一种思考方式是:

替换每次出现的 } .

但前提是该事件位于行尾。

并且仅当它是出现在 e 之前的最后一次出现时完全自己出现。

这是我能想到的最接近的，不知道如何匹配不包含更多 }$ 匹配项的任意数量的行:

sed -i 's/}$\n.*\n.*\n.*\n^e$/}{&}/g' file.tex

我如何将最后的额外文本包裹在 { 中和 } ?

Answer 1

使用 awk 更容易做到这一点使用空 RS .这是一个 gnu-awk解决方案:

awk -v RS= '{sub(/.*}/, "&{"); sub(/\ne$/, "\n}"); ORS=RT} 1' file

\macro{stuff}
{more stuff}
{yet other stuff}
{some stuff}{
these are extra lines
another extra line
there can be any number of extra lines
}

\macro{yet more stuff stuff}
{even more stuff}
{yet other stuff}
{some stuff}{
this is extra
this is extra too
}

或任何版本的 awk :

awk -v RS= '{sub(/.*}/, "&{"); sub(/\ne$/, "\n}\n")} 1' file