chiark / gitweb /
Remove yet more obsolete programs.
[bin.git] / check-characters.pl
1 #! /usr/bin/perl -w
2 use diagnostics;
3 use strict;
4
5 local $/ = undef;
6 my $file = <>;
7 while ($file =~ /<A.HREF="(.)\.html#(.)([-a-z]*)(?<!-).*?">(.*?)<\/A>/gs)
8 {
9         if ($1 ne $2 || "$2$3" ne lc $4)
10         {
11                 my $name = $4;
12                 $name =~ y/\n/ /;
13                 print "$name\n";
14         }
15 }
16