summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xlong-lines.pl4
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";