diff options
-rwxr-xr-x | long-lines.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/long-lines.pl b/long-lines.pl index 3ba4930..d0f0c21 100755 --- a/long-lines.pl +++ b/long-lines.pl @@ -3,28 +3,33 @@ use warnings; use strict; use File::Basename; use Getopt::Std; +use Text::Tabs; my %opt; -getopts("hm:", \%opt); +getopts("hm:t:", \%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 (default: 80)\n"; + print " -t NUMBER count \\t as NUMBER chars (default: 4)\n"; print " -h this help\n"; exit 0; } my $max = 80; my $line = 0; +$Text::Tabs::tabstop = 4; $max = $opt{m} if ($opt{m}); +$Text::Tabs::tabstop = $opt{t} if ($opt{t}); for my $file (@ARGV) { open FILE,"<", $file; $line = 0; while (<FILE>) { $line++; + $_ = expand $_; if (length > $max) { print "\"$file\" - line $line: ", length, " chars\n"; } |