tor/contrib/checkSpace.pl

#!/usr/bin/perl -w

for $fn (@ARGV) {
    open(F, "$fn");
    $lastnil = 0;
    while (<F>) {
	if (/\r/) {
	    print "       CR:$fn:$.\n";
	}
	if (/\t/) {
	    print "      TAB:$fn:$.\n";
	}
	if (/ +$/) {
	    print "Space\@EOL:$fn:$.\n";
	}
	if ($lastnil && /^$/) {
	    print " DoubleNL:$fn:$.\n";
	} elsif (/^$/) {
	    $lastnil = 1;
	} else {
	    $lastnil = 0;
	}
    }
    close(F);
}