Shell Programming and Scripting

1.img
2.img
3.img
OK
x.img
y.img
z.img
not ok
1.img
2.img
3.img
bad
1.img
 2.img
 3.img
 OK

awk '{a[NR]=$0}$1 !~ "[OK|img]"{print a[(NR-3)]}' file

egrep -e '(not ok|bad)' -B3  comment.txt | grep -v "\--"

#!/usr/bin/perl

use strict ;
use warnings ;

my $infile='comment.txt' ;
my $count=0 ;
my @temparr=() ;
my @mainarr=() ;

open(F, $infile) or die "Error: $!\n" ;

   my @arr = <F> ;

close(F) ;

  foreach my $record (@arr) {
  chomp $record ;
  push(@temparr,$record) ;
  $count++ ;

  if ($count eq 4) {
  $count=0 ;
    if ($record !~ /OK/) {
    push(@mainarr,@temparr) ;
    @temparr=() ;
    }
  else { @temparr=() ; }
   }
  }

  foreach my $mainarrrec (@mainarr) {
  chomp $mainarrrec ;
  print "$mainarrrec\n" ;
  }

nawk 'NR%4==0&&$0!~s{for(c=b+1;c>1;c--)print r[(NR-c+1)%b]}{r[NR%b]=$0}' b=3 s="OK" file1

sed -n 'N;N;h;n;/OK/!{g;p;}'

$ cat comment.txt
1.img
2.img
3.img
OK
x.img
y.img
z.img
not ok
1.img
2.img
3.img
bad
1.img
 2.img
 3.img
 OK
$ sed -n 'N;N;h;n;/OK/!{g;p;}' comment.txt
x.img
y.img
z.img
1.img
2.img
3.img