如何显示从文件开头到第一次出现正则表达式的数据？

Question

如何显示从文件开头到第一次出现正则表达式的数据？

例如，如果我有一个包含以下内容的文件：

One
Two
Three
Bravo
Four 
Five

我想从第 1 行开始显示文件的内容，并在找到字符串“B*”时停止。所以输出应该是这样的：

One
Two
Three

Answer 1

<代码>
perl -pe '最后一个 if /^B/' source.txt

解释：-p 开关在代码周围添加一个循环，将其变成这样：

while ( <> ) {
    last if /^B.*/;  # The bit we provide
    print;
}

如果条件成立，最后一个关键字立即退出周围的循环 - 在本例中为 /^B/，这表明该行以 B 开头。

Answer 2

如果是从文件的开头

awk '/^B/{exit}1' file

如果你想从特定的行号开始

awk '/^B/{exit}NR>=10' file # start from line 10

Answer 3

sed -n '1,/^B/p'

打印从第 1 行到 /^B/（包含）。 -n 抑制默认回显。

更新： Opps....不想要“Bravo”，所以需要相反的操作;-)

sed -n '/^B/,$!p'  

/I3az/

Answer 4

sed '/^B/,$d'

阅读如下：删除 (d) 从以“B”(/^B/) 开头的第一行开始的所有行，直到最后一行（<代码>$）。

Answer 5

其他人给出的一些 sed 命令将在找到正则表达式后继续不必要地处理输入，这对于大输入来说可能会相当慢。当找到正则表达式时，此操作将退出：

sed -n '/^Bravo/q;p'

Answer 6

在 Perl 中：

perl -nle '/B.*/ && last; print; ' source.txt

Answer 7

只是分享我收到的一些答案：

从第一行开始打印数据，然后继续，直到找到与正则表达式的匹配项，然后停止：

<command> | perl -n -e 'print "$_" if 1 ... /<regex>/;'

从第一行开始打印数据，然后继续，直到找到与正则表达式的匹配项，但不显示与正则表达式匹配的行：

<command> | perl -pe '/<regex>/ && exit;'

在 sed 中执行此操作：

<command> | sed -n '1,/<regex>/p'

Answer 8

您的问题是 perlfaq6 中答案的变体：如何拉出本身位于不同行的两个模式之间的行？。

---

您可以使用 Perl 有点奇特的 .. 运算符（在 perlop 中记录）：

perl -ne 'print if /START/ .. /END/' file1 file2 ...

如果您想要文本而不是行，您可以使用

perl -0777 -ne 'print "$1\n" while /START(.*?)END/gs' file1 file2 ...

但是如果您想要 START 到 END 的嵌套出现，您将遇到问题中描述的问题本节介绍匹配平衡文本。

这是使用 .. 的另一个示例：

while (<>) {
    $in_header =   1  .. /^$/;
    $in_body   = /^$/ .. eof;
# now choose between them
} continue {
    $. = 0 if eof;  # fix $.
}

Answer 9

这是 perl 一行：

perl -pe 'last if /B/' file

Answer 10

如果 Perl 是可能的，你可以这样做：

% perl -0ne 'if (/B.*/) { print 
如果 Perl 是可能的，你可以这样做：
; last }' INPUT_FILE

Answer 11

带有基本 shell 命令的一行：

head -`grep -n B file|head -1|cut -f1 -d":"` file