Как я отображаю данные с начала файла до первого вхождения регулярного выражения?

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

Печать из строка 1 до / ^ B / (включительно). -n подавляет эхо по умолчанию.

Обновление: Оппс .... не хотел "Браво", поэтому вместо этого требуется обратное действие; -)

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

/ I3az /

perl -pe 'last if / ^ B /' source.txt

Объяснение: ключ -p добавляет цикл вокруг кода, превращая его в следующее:

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

Последнее ключевое слово немедленно выходит из окружающего цикла, если условие выполняется - в данном случае / ^ B /, что означает, что строка начинается с буквы B.

Вот однострочник perl:

perl -pe 'last if /B/' file

если он от начала файла

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

, если вы хотите начать с конкретного номера строки

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

sed '/^B/,$d'

Прочитайте это следующим образом: Удалить (d) все строки, начинающиеся с первой строки, начинающейся с "B" (/^B/), до последней строки ($).

в Perl:

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

Если Perl - возможность, вы можете сделать что-то подобное:

% perl -0ne 'if (/B.*/) { print $`; last }' INPUT_FILE

Некоторые из команд sed, отданных другими, будут продолжать неоправданно обрабатывать вход после того, как будет найден регекс, который может быть довольно медленным для больших входов. Это прекращается при обнаружении регекса:

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

Ваша проблема заключается в вариации ответа в 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 $.
}

Просто делюсь некоторыми полученными ответами:

Печатайте данные, начиная с первой строки, и продолжайте до тех пор, пока мы не найдем совпадение с регексом, затем остановитесь:

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

Печатаем данные, начиная с первой строки, и продолжаем до тех пор, пока не найдем совпадение с регексом, но не выводим на экран строку, которая соответствует регулярному выражению:

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

Делаем это в sed:

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

Один вкладыш с основными командами оболочки:

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