Markus Armbruster
759d3185ad
Semantics of assigning to $[ changed in Perl 5, and its use is `highly discouraged'. Programs obviously assumed $[ affects all arrays, but it doesn't in Perl 5. If these programs ever worked, then certainly not with Perl 5. Remove the assignments and shift indexes accordingly.
74 lines
1.5 KiB
Perl
74 lines
1.5 KiB
Perl
#!/usr/local/bin/perl
|
|
#
|
|
# checklist.pl
|
|
#
|
|
# By Ken Stevens <children@empire.net>
|
|
#
|
|
# HOW TO RUN IT:
|
|
# In empire, redirect the output of the player "list" command to a file called
|
|
# "player.list". Similarly, make a file listing deity commands and call it
|
|
# deity.list. Put both these files in this directory, and then run this script
|
|
# to check which Empire commands need to be documented.
|
|
#
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my ($com, @list, @obsolete, @Commands);
|
|
|
|
open(LIST, "<player.list") || die "Can't read player.list\n";
|
|
|
|
while(<LIST>) {
|
|
last if /^ <TYPE>/;
|
|
}
|
|
|
|
while(<LIST>) {
|
|
last if /^For further info on command syntax see/;
|
|
$_ = substr($_, 5);
|
|
($com) = split;
|
|
push (@list, $com);
|
|
}
|
|
close LIST;
|
|
|
|
push(@list, "break");
|
|
|
|
open(LIST, "<deity.list") || die "Can't read deity.list\n";
|
|
|
|
while(<LIST>) {
|
|
last if /^ <TYPE>/;
|
|
}
|
|
|
|
while(<LIST>) {
|
|
last if /^For further info on command syntax see/;
|
|
$_ = substr($_, 5);
|
|
($com) = split;
|
|
push (@list, $com);
|
|
}
|
|
close LIST;
|
|
|
|
open(OBSOLETE, "<Subjects/Obsolete.t") ||
|
|
die "Can't read Subjects/Obsolete.t\n";
|
|
|
|
while (<OBSOLETE>) {
|
|
push(@obsolete, $1) if /^.L (\S+)$/;
|
|
}
|
|
|
|
close OBSOLETE;
|
|
|
|
open (LS, "ls Commands|");
|
|
|
|
while (<LS>) {
|
|
chop;
|
|
next unless /^(\S+).t/;
|
|
push(@Commands, $1);
|
|
}
|
|
close LS;
|
|
|
|
print "In list but not Commands:\n";
|
|
for my $l (@list) {
|
|
print " $l\n" unless grep (/^$l$/, @Commands);
|
|
}
|
|
print "In Commands but not list:\n";
|
|
for my $c (@Commands) {
|
|
print " $c\n" unless grep(/^$c$/, @list) || grep(/^$c$/, @obsolete);
|
|
}
|