Искать и удалять строки, соответствующие шаблону, вместе с комментариями в предыдущей строке, если таковые имеются.

У меня есть задача написать shell-скрипт на csh для поиска и удаления строк, соответствующих шаблону, вместе с комментариями в предыдущей строке, если таковые имеются. Например, если мой файл содержит следующие строки

Shell script
#это тест
pattern1
format1
pattern2
format2
#format3
pattern3

Если шаблон поиска – “pattern”, то вывод должен быть следующим

Shell script
format1
format2

Чтобы быть более точным, строки, которые содержат шаблон, и предыдущая строка, если она начинается с “#”, должны быть удалены

Спасибо за помощь

Прежде всего, никто никогда не должен использовать csh для чего-либо – это устарело и неэффективно. Во-вторых, я сомневаюсь, что он справится с этой задачей. В-третьих, гораздо более вероятно, что awk, sed или даже Perl будут гораздо лучшим инструментом для этой задачи.

awk '/^#/ {printf line; line=$0"\n"; next} /pattern/ {line=""} ! /pattern/ {printf line; print; line=""}'

Редактировать: исправлен скрипт для корректной обработки строк-комментариев

Вот однострочное решение на Perl (не на C shell). Вы можете изменить регулярное выражение /pattern/ в середине.

perl -ne 'if(/^#/){$c=$_}elsif(!/pattern/){print$c,$_;$c=""}else{$c=""}' <file.in

Наверное, более лучший способ логически записать это, но я думаю, это может сработать:

#!/usr/bin/perl
use strict;
use warnings;

my $previous_line="";
while(<>) {
    if ( /pattern/ ) {
        if ( (! ($previous_line =~ /^#/)) && (! ($previous_line =~ /pattern/))) {
            print $previous_line;
        }
    } elsif (! ($previous_line =~ /pattern/)) {
        print $previous_line;
    }
    $previous_line = $_;
}
print $previous_line if not ($previous_line =~ /pattern/);

По сути, цикл на одну строку позади с предыдущей строкой. Он говорит, что можно напечатать предыдущую строку, если:

1. Если текущая строка соответствует шаблону: можно напечатать предыдущую, если предыдущая строка также не соответствует шаблону или это не комментарий.
2. Если эта строка не соответствует шаблону, можно напечатать предыдущую строку, если она не соответствовала шаблону.

Вы можете просто сохранить код в файл и использовать его так: perl thefile.pl textfile_you_want_to_filter

Вот версия на sed. Некоторые версии sed могут требовать, чтобы части этого были разделены на несколько клауз.

sed '$b;N;/^#.*\npattern.*$/ ! {P;D}; :c; $d; s/.*\n//;N;/^#.*\npattern.*$/ {bc}; /^pattern/d; D' patterns

Вот версия скрипта этого однострочного кода с комментариями:

#!/bin/sed -f

# Ищем комбинацию комментария, за которой следует шаблон
# до этого печатаем то, что находим.
$b
N
/^#.*\npattern.*$/ ! {
P
D
}

:c
# У нас есть комбинация комментария и шаблона в пространстве шаблонов.
# В конце файла мы просто выходим
$d

# В противном случае продолжаем читать строки с помощью `N`, пока не
# найдем другую
s/.*\n//
N
/^#.*\npattern.*$/ {
bc
}

# Удаляем отдельные строки, которые содержат "pattern"
/^pattern/d

# Удаляем последний экземпляр комбинации
# и возвращаемся к началу
D

Это основано на скрипте в info sed секция 4.16 “Удалить все дублированные строки” (uniq -u).

Обязательно ли это скрипт на shell?

1. открыть файл с помощью vi
2. :g/<pattern>/d
3. повторять по мере необходимости для дополнительных
   типов шаблонов, если вы не можете использовать регулярное выражение
   для шаблона
4. :g/^#/d

можно эффективно воспроизвести с помощью sed, если это должно быть скриптом

редактировать:

1. создать файл .sedscript:

/pattern/d
/^#/d

2. sed -f .sedscript <inputfile> > <outputfile>

Это не удовлетворяет требованию удалить предыдущую строку, но ваш пример, похоже, не требует этой функции.