Shell: простой способ получить все строки перед первой пустой строкой - PullRequest
8 голосов
/ 22 октября 2009

Какая команда оболочки лучше всего выводит строки файла, пока не встретится первая пустая строка? Например:

output these
lines

but do not output anything after the above blank line
(or the blank line itself)

AWK? что-то еще?

Ответы [ 8 ]

9 голосов
/ 22 октября 2009
sed -e '/^$/,$d' <<EOF
this is text
so is this

but not this
or this
EOF
7 голосов
/ 22 октября 2009

Подробнее awk:

awk -v 'RS=\n\n' '1;{exit}'

Подробнее sed:

sed -n -e '/./p;/./!q'
sed -e '/./!{d;q}'
sed -e '/./!Q'   # thanks to Jefromi

Как насчет непосредственно в оболочке?

while read line; do [ -z "$line" ] && break; echo "$line"; done

(или printf '%s\n' вместо echo, если ваша оболочка глючит и всегда обрабатывает выходы.)

4 голосов
/ 22 октября 2009
# awk '!NF{exit}1' file
output these
lines
3 голосов
/ 22 октября 2009

С седом:

sed '/^$/Q' <file>

Редактировать: sed - это путь, путь, путь быстрее. Смотрите ответ ephemient для самой быстрой версии.

Чтобы сделать это в awk, вы можете использовать:

awk '{if ($0 == "") exit; else print}' <file>

Обратите внимание, что я специально написал это, чтобы избежать использования регулярных выражений. Я не знаю, на что похожи внутренние оптимизации awk, но я подозреваю, что прямое сравнение строк будет быстрее.

2 голосов
/ 22 октября 2009

Awk решение

awk '/^$/{exit} {print} ' <filename>
1 голос
/ 22 октября 2009

Другое решение Perl:

perl -00 -ne 'print;exit' file
perl -00 -pe 'exit if $. == 2' file
1 голос
/ 22 октября 2009

пара Perl однострочников

$ perl -pe'last if /^$/' file..

$ perl -lpe'last unless length' file..
1 голос
/ 22 октября 2009

Вот решение с использованием Perl:

#! perl

use strict;
use warnings;

while (<DATA>) {
    last if length == 1;
    print;
}

__DATA__
output these
lines

but don't output anything after the above blank line
(or the blank line itself)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...