Hapus rentang garis pola di atas dengan sed (atau awk)

Saya memiliki kode berikut yang akan menghapus garis dengan pola bananadan 2 baris setelahnya:

sed '/banana/I,+2 d' file

Sejauh ini baik! Tapi saya perlu menghapus 2 baris sebelumnya banana , tapi saya tidak bisa mendapatkannya dengan "tanda minus" atau apa pun (mirip dengan apa yang grep -v -B2 banana fileharus dilakukan tetapi tidak):

teresaejunior@localhost ~ > LC_ALL=C sed '-2,/banana/I d' file
sed: invalid option -- '2'
teresaejunior@localhost ~ > LC_ALL=C sed '/banana/I,-2 d' file
sed: -e expression #1, char 16: unexpected `,'
teresaejunior@localhost ~ > LC_ALL=C sed '/banana/I,2- d' file
sed: -e expression #1, char 17: unknown command: `-'

Sed tidak mundur: setelah diproses garis, selesai. Jadi “temukan garis dan cetak garis N sebelumnya” tidak akan berfungsi sebagaimana mestinya, tidak seperti “temukan garis dan cetak garis N berikutnya” yang mudah dicangkokkan.

Jika file tidak terlalu panjang, karena Anda tampaknya tidak masalah dengan ekstensi GNU, Anda dapat menggunakan tacuntuk membalikkan baris file.

tac | sed '/banana/I,+2 d' | tac

Sudut serangan lain adalah mempertahankan jendela geser di alat seperti awk. Beradaptasi dari Adakah alternatif untuk switch grep -A -B -C (untuk mencetak beberapa baris sebelum dan sesudah)? (peringatan: minimal diuji):

#!/bin/sh
{ "exec" "awk" "-f" "$0" "$@"; } # -*-awk-*-
# The array h contains the history of lines that are eligible for being "before" lines.
# The variable skip contains the number of lines to skip.
skip { --skip }
match($0, pattern) { skip = before + after }
NR > before && !skip { print NR h[NR-before] }
{ delete h[NR-before]; h[NR] = $0 }
END { if (!skip) {for (i=NR-before+1; i<=NR; i++) print h[i]} }

Pemakaian: /path/to/script -v pattern='banana' -v before=2

Ini cukup mudah dengan ex atau vim -e

    vim -e - $file <<@@@
g/banana/.-2,.d
wq
@@@

Ekspresi berbunyi: untuk setiap baris yang berisi pisang dalam kisaran dari baris saat ini -2 ke baris saat ini, hapus.

Apa yang keren adalah bahwa rentang juga dapat berisi pencarian maju dan mundur, misalnya ini akan menghapus semua bagian file dimulai dengan baris yang mengandung apel dan diakhiri dengan baris yang mengandung oranye dan berisi baris dengan pisang:

    vim -e - $file <<@@@
g/banana/?apple?,/orange/d
wq
@@@

Menggunakan "jendela geser" di perl:

perl -ne 'push @lines, $_;
          splice @lines, 0, 3 if /banana/;
          print shift @lines if @lines > 2
          }{ print @lines;'

Anda dapat melakukan ini dengan cukup sederhana dengan sed:

printf %s\\n    1 2 3 4match 5match 6 \
                7match 8 9 10 11match |
sed -e'1N;$!N;/\n.*match/!P;D'

Saya tidak tahu mengapa ada orang yang mengatakan sebaliknya, tetapi untuk menemukan garis dan mencetak baris sebelumnya sed menggabungkan built-in Print primitive yang hanya menulis hingga \nkarakter ewline pertama dalam ruang pola. DElete primitif komplementer menghilangkan segmen ruang pola yang sama sebelum secara berulang mendaur ulang skrip dengan yang tersisa. Dan untuk mengatasinya, ada primitif untuk menambahkan jalur Ninput ext ke ruang pola mengikuti \nkarakter ewline yang dimasukkan .

Sehingga satu baris sedharus menjadi semua yang Anda butuhkan. Anda tinggal mengganti matchdengan regexp apa pun Anda dan Anda emas. Itu harus menjadi solusi yang sangat cepat juga.

Perhatikan juga bahwa ia akan menghitung dengan benar yang matchmendahului yang lain matchsebagai pemicu untuk menghentikan output untuk dua baris sebelumnya dan juga menghentikan pencetakannya:

1
7match
8
11match

Agar dapat bekerja untuk jumlah baris yang sewenang - wenang , yang perlu Anda lakukan adalah mendapatkan petunjuk.

Begitu:

    printf %s\\n     1 2 3 4 5 6 7match     \
                     8match 9match 10match  \
                     11match 12 13 14 15 16 \
                     17 18 19 20match       |
    sed -e:b -e'$!{N;2,5bb' -e\} -e'/\n.*match/!P;D'

1
11match
12
13
14
20match

... menghapus 5 baris sebelum pertandingan apa pun.

Menggunakan man 1 ed:

str='
1
2
3
banana
4
5
6
banana
8
9
10
'

# using Bash
cat <<-'EOF' | ed -s <(echo "$str")  | sed -e '1{/^$/d;}' -e '2{/^$/d;}'
H
0i


.
,g/banana/km\
'm-2,'md
,p
q
EOF