Esiste un'alternativa agli switch -A -B -C di grep (per stampare poche righe prima e dopo)?

grep -A 2 -B 3 

stampa 2 righe dopo la stringa grep e stampa 3 righe prima.

grep -C 3

stampa 3 righe prima e 3 righe dopo

Sfortunatamente, grepsto usando non supporta queste opzioni. Sono disponibili comandi o script alternativi per simulare questo? Usando gli script sed/ awk/ perl/ shell?

Un modo moderatamente brutto per farlo è

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

o sostituire -ccon -C NUMper le NUMlinee di contesto. Produrrà un output extra, però. (Se diffsupporta -u/ -U NUM, sarà più pulito.)

Se il tuo diffnon ha -c/ -C/ -u, ci sono ancora modi per farlo, ma sono piuttosto brutti. D'altra parte, un sistema che diffnon supporta nemmeno -cprobabilmente non ha nemmeno Perl.

ack richiede solo Perl, e comprende -A, -Be -Cle opzioni che funzionano come grep di. Usa la sintassi della regex di Perl invece di quella di grep, e il modo in cui seleziona i file da cercare è abbastanza diverso. Potresti voler provare l' -fopzione quando la usi (che stampa i file che cercherà senza effettivamente cercare nulla).

Può essere installato come un singolo script che non richiede moduli non core. Rilascialo nella tua ~/bindirectory (o in qualsiasi altro punto del PERCORSO a cui hai accesso in scrittura) e assicurati che sia chmodeseguibile.

Questo semplice script perl emula grep -Ain una certa misura

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

Si noti che è possibile aggiungere una dichiarazione di utilizzo per rendere leggibile e utilizzabile lo script;)

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

Puoi semplicemente installare GNU grep o Ack (scritto in Perl, comprende molte delle opzioni di GNU grep e altro).

Se preferisci attenersi agli strumenti standard più un po 'di script, ecco uno script awk che emula il comportamento di grep -Ae -Bopzioni di GNU . Testato al minimo.

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

Esegui come grep-ac -vpattern=PATTERN -vbefore=NBEFORE -vafter=NAFTERdove PATTERNè il modello per cercare ( un'espressione regolare estesa con alcune aggiunte awk ), ed NBEFOREe NAFTERsono i numeri di linee per la stampa prima e dopo una partita, rispettivamente (inadempiente a 0). Esempio:

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

Si scopre che è abbastanza difficile emulare -B, a causa dei problemi che sorgono quando ci sono linee corrispondenti che si susseguono direttamente. Questo praticamente non consente l'utilizzo di alcun tipo di scansione di file single-pass-through.

Me ne sono reso conto mentre giocavo con la seguente approssimazione:

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

Questo funzionerà approssimativamente correttamente come farebbe grep -A7 -B3, con l'avvertenza descritta nel primo paragrafo.

Una soluzione alternativa (anche a file singolo) a questo problema è utilizzare perl per alimentare una stringa di comando:

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

Usando sedpuoi prima ottenere i numeri di riga delle linee corrispondenti, decrementare e incrementare un dato numero di riga in un whileciclo e poi usare sed -n "n1,n2p"per stampare le linee del contesto iniziale ( n1) e finale ( n2) (simile sedall'alternativa suggerita dall'utente 455). Tuttavia, molti processi di lettura possono causare un calo delle prestazioni.

edpuò fare direttamente riferimento alle linee precedenti e seguenti di una linea abbinata, ma non riesce se l'intervallo di linee specificato non esiste; ad esempio, la riga corrispondente corrisponde alla riga numero 2, ma devono essere stampate 5 righe pre-corrispondenza. Usarlo edè quindi necessario aggiungere un numero appropriato di righe (vuote) all'inizio e alla fine. (Per i file di grandi dimensioni edpotrebbe non essere lo strumento giusto, vedere: bfs - scanner di file di grandi dimensioni ).

# 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