Есть ли альтернатива ключам -A -B -C grep (чтобы напечатать несколько строк до и после)?

grep -A 2 -B 3 

печатает 2 строки после строки grep и печатает 3 строки раньше.

grep -C 3

печатает 3 строки до и 3 строки после

К сожалению, grepя использую не поддерживает эти параметры. Существуют ли альтернативные команды или сценарии для имитации этого? Используете sed/ awk/ perl/ shell-скрипты?

Один умеренно уродливый способ сделать это

grep -v pattern file >file.tmp; diff -c file.tmp file

или заменить -cна -C NUMдля NUMстрок контекста. Это произведет дополнительный выход, все же. (Если ваша diffподдержка -u/ -U NUM, это будет чище.)

Если у вас diffнет -c/ -C/ -u, есть еще способы сделать это, но они довольно уродливы. С другой стороны, система, diffкоторая даже не поддерживает, -cвероятно, также не имеет Perl.

извед требуется только Perl, и включает в себя -A, -Bи-C варианты , что работа , как Grep - х. Он использует синтаксис регулярных выражений Perl вместо grep, и способ выбора файлов для поиска совершенно другой. Возможно, вы захотите попробовать эту -fопцию при ее использовании (которая распечатывает файлы, которые она будет искать, фактически ничего не ища).

Он может быть установлен как один скрипт, который не требует неосновных модулей. Просто поместите его в свой ~/binкаталог (или где-нибудь еще в вашем PATH, к которому у вас есть права на запись) и убедитесь, что он chmodисполняемый.

Этот простой скрипт на Perl grep -Aдо некоторой степени эмулирует

#!/usr/bin/perl

$pattern=shift; #patthern to search
$lines=shift; # number of lines to print

$n = 0;
while (<>) {
  $n = $lines if /$pattern/; # reset counting
  if ($n) { print; $n-- } # print if within
  $n = 0 if eof; # don't leak across file boundaries
}

Обратите внимание, что вы можете добавить оператор использования, чтобы сделать сценарий читабельным и удобным для использования;)

USAGE:    $./grep-A.pl <pattern> <numLines> <filename> 

Вы можете просто установить GNU grep или Ack (написано на Perl, понимает многие параметры GNU grep и многое другое).

Если вы предпочитаете использовать стандартные инструменты и немного сценариев, вот скрипт awk, который имитирует поведение GNU grep -Aи его -Bпараметров. Минимально проверено.

#!/bin/sh
# grep-ac: a grep-like awk script
# Arguments: pattern = awk regexp to search for
#            before = number of lines to print before a match
#            after = number of lines to print after a match
{ "exec" "awk" "-f" "$0" "$@"; }
# The array h contains the history of lines that haven't been printed
# but are eligible for being "before" lines.
# The variable until contains the number of the last "after" line to print.
match($0, pattern) {   # the current line matches
    for (i in h) {
        print h[i];    # print each remaining before line
        delete h[i];   # delete each line as it's printed
    }
    until=NR+after;    # record the last after line to print
}
{
    if (NR<=until) print $0;    # from a match to its last after line: print
    else h[NR]=$0;              # after that: save in history
    delete h[NR-before];        # remove line too old to be a before line
}
END {exit !until}               # exit status: 0 if there was a match, else 1

Запустите его, указав, grep-ac -vpattern=PATTERN -vbefore=NBEFORE -vafter=NAFTERгде PATTERNнаходится шаблон для поиска ( расширенное регулярное выражение с несколькими дополнениями в awk ), NBEFOREи NAFTERколичество строк, которые нужно напечатать до и после совпадения соответственно (по умолчанию 0). Пример:

<input_file grep-ac -vbefore=2 -vpattern='foo *bar'

Оказывается, довольно сложно эмулировать -B из-за проблем, которые возникают, когда у вас совпадают строки, следующие друг за другом напрямую. Это в значительной степени запрещает использование любого вида сквозного сканирования файлов.

Я понял это, играя со следующим приближением:

perl -pe 'if(/search_term/) {print foreach @A; print ">"; $B=4}; shift @A if push(@A, $_)>7; $_ = "" unless ($B-- > 0);' target_file

Это будет работать примерно так же, как и grep -A7 -B3, с оговоркой, описанной в первом абзаце.

Альтернативное (также однофайловое) решение этой проблемы заключается в использовании perl для подачи sed командной строки:

sed -n `perl -pe '$_=(/search_term/?sprintf("%d,%dp;", $.-3,$.+4):"")' file` file

Используя, sedвы можете сначала получить номера строк совпадающих строк, уменьшить и увеличить заданный номер строки в whileцикле, а затем использовать sed -n "n1,n2p"для печати строк контекста lead ( n1) и trailing ( n2) (аналогично sedальтернативе, предложенной пользователем 455). Однако многие процессы чтения могут привести к снижению производительности.

edможет напрямую ссылаться на предыдущую и последующую строки совпавшей строки, но завершается неудачно, если указанный диапазон строк не существует; например, совпадающая строка - это строка № 2, но должны быть напечатаны 5 строк перед совпадением. Используя edего , поэтому необходимо добавить соответствующее количество (пустых) строк в начале и в конце. (Однако, для больших файлов edможет не подойти , см .: bfs - сканер больших файлов ).

# sample code to match lines with number 5 plus previous & following line
# (using Bash)
printf '%s\n' {1..20} > num.txt

# sed
sed -n '/5/=' num.txt | while read num; do
   n1=$((num - 1))
   n2=$((num + 1))
   [[ $n1 -lt 1 ]] && n1=1
   sed -n "${n1},${n2}p" num.txt
   echo --
done | sed -e '${/^--$/d;}'

# ed
cat <<-'EOF' | ed -s num.txt | sed -e $'N;N;a\\\n--' | sed -e '${/^--$/d;}'
H
0i
beginning: added line one
.
$a
end: added line one
.
,g/5/km\
'm-1,'m+1p
q
EOF