begin_end_print.pl 121 Bytes
Newer Older
Loïc Barrault's avatar
Loïc Barrault committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15


while (<>) {
    if (/<BEGIN>/) {
	while (<>) {
	    if (/<END>/) {
		last;
	    } else {
		print;
	    }
	}
    }
}