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         $count++ if (length($_) > 80);
   8 }
   9
  10 close( INFILE );
  11 print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0);
  12
  13 exit( 0 );
  14
  15