¿Hay alguna alternativa a los conmutadores grep -A -B -C (para imprimir algunas líneas antes y después)?

grep -A 2 -B 3 

imprime 2 líneas después de la cadena grep e imprime 3 líneas antes.

grep -C 3

imprime 3 líneas antes y 3 líneas después

Desafortunadamente, el grepque estoy usando no admite estas opciones. ¿Hay algún comando o script alternativo disponible para simular esto? ¿Usando sed/ awk/ perl/ scripts de shell?

Una forma moderadamente fea de hacerlo es

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

o sustituir -ccon -C NUMde NUMlíneas de contexto. Sin embargo, producirá una salida extra. (Si sus diffsoportes -u/ -U NUM, será más limpio).

Si diffno tiene -c/ -C/ -u, todavía hay formas de hacerlo, pero son bastante feas. Por otro lado, un sistema diffque ni siquiera es compatible -cprobablemente tampoco tenga Perl.

ACK sólo requiere Perl, e incluye -A, -By -Clas opciones que funcionan como grep. Utiliza la sintaxis de expresiones regulares de Perl en lugar de la de grep, y la forma en que selecciona los archivos para buscar es bastante diferente. Es posible que desee probar la -fopción cuando la use (que imprime los archivos que buscará sin buscar nada).

Se puede instalar como un script único que no requiere módulos no básicos. Simplemente colóquelo en su ~/bindirectorio (o en cualquier otro lugar de su RUTA al que tenga acceso de escritura) y asegúrese de que sea chmodejecutable.

Este simple script perl emula grep -Ahasta cierto punto

#!/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
}

Tenga en cuenta que puede agregar una declaración de uso para que el script sea legible y utilizable;)

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

Simplemente puede instalar GNU grep o Ack (escrito en Perl, comprende muchas de las opciones de GNU grep y más).

Si prefiere apegarse a las herramientas estándar más un poco de secuencias de comandos, aquí hay una secuencia de comandos awk que emula el comportamiento de grep -Ay -Bopciones de GNU . Mínimamente probado

#!/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

Ejecútelo como grep-ac -vpattern=PATTERN -vbefore=NBEFORE -vafter=NAFTERdónde PATTERNestá el patrón para buscar (una expresión regular extendida con algunas adiciones awk ), NBEFOREy NAFTERson los números de líneas para imprimir antes y después de una coincidencia respectivamente (por defecto a 0). Ejemplo:

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

Resulta que es bastante complicado emular -B, debido a los problemas que surgen cuando tienes líneas coincidentes que se siguen directamente. Esto prácticamente no permite el uso de ningún tipo de escaneo de archivos de paso único.

Me di cuenta de esto mientras jugaba con la siguiente aproximación:

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

Esto funcionará aproximadamente correctamente como grep -A7 -B3, con la advertencia descrita en el primer párrafo.

Una solución alternativa (también de un solo archivo) para este problema es usar perl para alimentar una cadena de comando:

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

Con el uso sed, primero puede obtener los números de línea de las líneas coincidentes, disminuir e incrementar un número de línea dado en un whilebucle y luego usar sed -n "n1,n2p"para imprimir líneas de contexto inicial ( n1) y final ( n2) (similar a la sedalternativa sugerida por el usuario455). Sin embargo, muchos procesos de lectura pueden conducir a un impacto en el rendimiento.

edpuede hacer referencia directa a las líneas anteriores y siguientes de una línea coincidente, pero falla si el rango de línea especificado no existe; por ejemplo, la línea coincidente es la línea número 2, pero deben imprimirse 5 líneas anteriores. Por edlo tanto, es necesario agregar un número apropiado de líneas (vacías) al principio y al final. (Sin edembargo, para archivos grandes puede que no sea la herramienta adecuada, consulte: bfs - escáner de archivos grandes ).

# 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