mirror of
https://gitlab.torproject.org/tpo/core/tor.git
synced 2024-11-30 23:53:32 +01:00
21c92dace0
svn:r2768
26 lines
504 B
Perl
Executable File
26 lines
504 B
Perl
Executable File
#!/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);
|
|
}
|