src/etc/check-links.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#!/usr/bin/perl -w

my $file = $ARGV[0];

my @lines = <>;

my $anchors = {};

my $i = 0;
foreach $line (@lines) {
    $i++;
    if ($line =~ m/id="([^"]+)"/) { 
        $anchors->{$1} = $i;
    }
}

$i = 0;
foreach $line (@lines) {
    $i++;
    while ($line =~ m/href="#([^"]+)"/g) { 
        if (! exists($anchors->{$1})) {
            print "$file:$i: $1 referenced\n";
        }
    }
}