source3/script/count_80_col.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl -w

open( INFILE, "$ARGV[0]" ) || die $@;

$count = 0;
while ( <INFILE> ) { 
	$count++ if (length($_) > 80);
}

close( INFILE );
print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0);

exit( 0 );