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