long-lines.pl: Add option to skip lines by regex

Signed-off-by: Florian Pritz <bluewind@xinu.at>

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";