主页 / unix / 问题 / 469458
Accepted
GypsyCosmonaut
Asked: 2018-09-17 16:17:45 +0800 CST

删除模式之间的换行符

  • 772
foo
I love
Stack Exchange
bar
Some junk
lines
foo
Welcome to the
world of
Bash
bar
foo
Elon Musk
rocks

是的，文件末尾没有bar补码foo

所需的输出是

I love Stack Exchange
Welcome to the world of Bash
Elon Musk rocks

因此，删除所有换行符，介于^foo和^bar之间^foo以及end of file没有的地方bar

awk text-processing

3 个回答

  1. Perl 来拯救！

    perl -ne '
    if ($e = /^foo$/ .. /^bar$/) {
        if ($e =~ /E/) { print "\n" }
        else {
            chomp;
            print " " if $e > 2;
            print     if $e > 1;
        }
}' -- input.txt
    • -n逐行读取输入
    • ..是范围运算符，它返回块中每一行的相对行号。最后一行已E0附加到它。
    • 2
  2. Best Answer

    与awk：

    awk '
  $0 == "foo" {if (sep) print ""; sep = ""; inside = 1; next}
  $0 == "bar" {inside = 0; next}
  inside {printf "%s", sep $0; sep = " "}
  END {if (sep) print ""}'

    要匹配foo第一个单词为 with 的行，请替换$0 == "foo"为$1 == "foo"; 匹配以 开头的行foo，替换为/^foo/（ 的缩写$0 ~ /^foo/）。

    • 2

  3. 你也可以这样做：

    a) 这是POSIX-sed兼容代码，其中我们将中档线（!/foo/ 和 !/bar/）存储在保留区域中。

    sed -e '
    /foo/,/bar/!d
    /foo/d
    /bar/!{H;$!d;}
    s/.*//;x;s/^\n//;y/\n/ /
' input-file.txt

    b)Perl如图所示

    perl -lne '
   next unless /foo/ ... /bar/;
   push(@A, $_),next if !/foo/ && !/bar/ && !eof;
   push(@A, $_)      if !/foo/ && !/bar/ &&  eof;
   print join " ", splice @A if /bar/ || !/foo/ && eof;
' input-file.txt

    解释：

    • 跳过不感兴趣的行或超出范围的行。范围被定义为以包含 的行开始/foo/并以 结束/bar/，两者都出现在不同的行上。
    • 一旦我们在范围内，然后根据我们所在的行执行单独的操作。
    • 对于不是 /foo/、既不是 /bar/ 也不是 eof 的行：将行存储在数组中@A。存储后，返回读取下一条非eof提供的记录。
    • 仅对于范围的末尾，即/bar/or eof，我们采取打印内容@A并将其清空的操作，为下一个收集周期做准备。
    • 1

相关问题