chiark
/
gitweb
/
~cjwatson
/
bin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Make almost everything executable.
[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