source/script/count_80_col.pl

   1 #!/usr/bin/perl -w
   2
   3 open( INFILE, "$ARGV[0]" ) || die $@;
   4
   5 $count = 0;
   6 while ( <INFILE> ) {
   7         next if ($_ =~ /^#define/);
   8         $count++ if (length($_) > 80);
   9 }
  10
  11 close( INFILE );
  12 print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0);
  13
  14 exit( 0 );
  15
  16