regress/usr.bin/mandoc/eqn/extract.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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

my ($begun, $ended);

while (<>) {
	chomp;
	if (not $begun) {
		s/.*<math class="eqn">// or next;
		$begun = 1;
		next unless length;
	}
	s/<\/math>.*// and $ended = 1;
	s/^ *//;
	print "$_\n" if length;
	exit 0 if $ended;
}

die "unexpected end of file";