Shell Programming and Scripting

111
222
333
444

111
1
2
.
2
.
.
14lines
abc
qbc
222
....
...
14lines
cccc

abc
qbc
cccc

cp file2 file3 #Backup file2
_lines_to_delete=`grep -n -f file1 file2 | cut -d":" -f1` #Lines to be deleted
for i in ${_lines_to_delete}
do
   _start=$i
   (( _end = $i + 14 ))
   awk '{if (NR>=a && NR <=b)print "d:"$0;else print}' a="${_start}" b="${_end}" file2 > _tempfile2 #Mark the lines as d
   mv _tempfile2 file2
done
awk -F":" '($1 !~ /d/) {print}' file2 # Print the remaining lines
mv file3 file2 #Restore file2

awk 'NR==FNR{a[$1]=1;next}a[$1]==1{c=15}--c<0' file1 file2 > file3

$ head -999 file[123]
==> file1 <==
111
222
333
444

==> file2 <==
111
1
2
3
4
5
6
7
8
9
10
11
12
13
14
abc
qbc
222
1
2
3
4
5
6
7
8
9
10
11
12
13
14
cccc

==> file3 <==
abc
qbc
cccc

my %hash=(pat1=>3,pat2=>5,pat3=>2);
my $n;
while(<DATA>){
	chomp;
	if(exists $hash{$_}){
		$n=$hash{$_}+1;
	}
	if($n != 0){
		$n--;
		next;
	}
	print $_,"\n" if $n == 0;
}
__DATA__
1
pat1
a
b
c
2
3
pat2
a
b
c
c
d
4
5
6
pat3
g
h
7
8
9

1
2
3
4
5
6
7
8
9