kopia lustrzana https://github.com/alecmuffett/eotk
17 wiersze
495 B
Perl
Executable File
17 wiersze
495 B
Perl
Executable File
#!/usr/bin/perl -n
|
|
|
|
if (/^\s*%\w+(?=[^\w%])/) { # catch "%IF" and similar single-percent typos
|
|
print "suspicious expression at $ARGV line $.: $_";
|
|
next;
|
|
}
|
|
|
|
if (/^\s*((%%\w+)|([^%\s])).*%%/) { # catch "%%VAR%%" and other stupidity
|
|
print "suspicious maybe-variable at $ARGV line $.: $_";
|
|
# fallthru
|
|
}
|
|
|
|
if (s/^\s*%%(\w+)//) {
|
|
print "suspicious maybe-directive '$1' at $ARGV line $.: $_"
|
|
unless ($1 =~ /^(IF|CSV|RANGE|ELSE|BEGIN|END(|IF|CSV|RANGE)|SPLICE|INCLUDE)$/o)
|
|
}
|