diff options
| -rwxr-xr-x | long-lines.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/long-lines.pl b/long-lines.pl index f0a117f..35ef85a 100755 --- a/long-lines.pl +++ b/long-lines.pl @@ -7,13 +7,14 @@ use Text::Tabs; use Carp; my %opt; -getopts("hm:t:", \%opt); +getopts("hm:t:s:", \%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 " -s REGEX skip lines that match this regular expression\n"; print " -h this help\n"; exit 0; } @@ -31,6 +32,7 @@ for my $file (@ARGV) { $line = 0; while (<$fh>) { $line++; + next if defined $opt{s} and m/$opt{s}/; $_ = expand $_; if (length > $max) { print "\"$file\" - line $line: ", length, " chars\n"; |