diff options
-rwxr-xr-x | long-lines.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/long-lines.pl b/long-lines.pl new file mode 100755 index 0000000..dc901ec --- /dev/null +++ b/long-lines.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl +use warnings; +use strict; +use File::Basename; +use Getopt::Std; + +my %opt; +getopts("hm:", \%opt); + +if (@ARGV == 0 || $opt{h}) { + print "usage: ", basename($0), " [options] file(s)...\n\n"; + print "Options:\n"; + print " -m NUMBER maximum chars tolerated per line\n"; + print " -h this help\n"; + exit 0; +} + +my $max = 80; +my $line = 0; + +$max = $opt{m} if ($opt{m}); + +for my $file (@ARGV) { + open FILE,"<", $file; + $line = 0; + while (<FILE>) { + $line++; + if (length > $max) { + print "\"$file\" - line $line: ", length, " chars\n"; + } + } +} |