主页 / unix / 问题 / 787834
Accepted
learningregularexpressions
Asked: 2024-12-09 02:35:46 +0800 CST

如何将底线与前一行合并？

  • 772

我有一个非常基本的文件；

15
Chapter name


some text and some more text
some text and some more text

我试图得到这样的东西

Book: 15 Chapter name


some text and some more text
some text and some more text

我尝试使用 sed 和这种模式来做到这一点；

sed 's/^\([[:digit:]]\+\)\n\([[:alpha:]].*$\)\n$/Book: \1 \2\n/g'

显然，这在终端上不起作用，但是在 VIM 版本中可以完美运行sed。

text-processing

3 个回答

  1. Best Answer

    sed逐行读取输入，因此您不能期望在输入中匹配换行符分隔的字符串。

    但是，您可以匹配一个整数，将下一行附加到它并从那里开始工作：

    $ sed -e '/^[0-9][0-9]*$/!b' -e 'N; s/\n/ /' -e 's/^/Book: /' file
Book: 15 Chapter name


some text and some more text
some text and some more text

    这会跳过（仅输出）所有非整数的行。但是，当检测到一个整数时，会使用 将以下行添加到缓冲区末尾N，并在两者之间添加分隔换行符。使用 将此换行符替换为空格s，然后将文本插入Book: 行首。

    如果您知道整数出现在第一行，您可以将初始命令从 更改/^[0-9][0-9]*$/!b为更短的1!b。

    • 3

  2. 使用Perl，在段落模式下：

    $ perl -00 -pe 's/^(\d+)\n/Book: $1 / if /^\d+/' file
Book: 15 Chapter name

some text and some more text
some text and some more text
    • 0

  3. 使用Raku（以前称为 Perl_6）

    ~$ raku -ne '/^ \d**1..2 $/  ??  print "Book:\t$_ "  !!  .put;'  file

    Raku 是 Perl 家族中功能齐全的编程语言。上面我们使用print/put语法来合并行。在 Raku 中（与 Perl 一样），print不会自动添加\n换行符。Raku 还有一个put例程，代表Print-Using-Terminator，它会\n为您添加换行符。

    一旦您识别出下面 Raku 的新三元运算符，您就会看到它（与print/结合put）如何给出所需的答案：

    测试 ?? 真假 ；!! ​

    示例输入：

    15
Chapter name


some text and some more text
some text and some more text

    示例输出：

    Book:   15 Chapter name


some text and some more text
some text and some more text

    https://docs.raku.org/language/5to6-nutshell#%3F_:_Ternary_operator
    https://raku.org

    • 0

相关问题