From cb9c6c194fd1a0aff05adbb36fc34e687920e190 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xssn.at>
Date: Sun, 6 Jun 2010 21:54:31 +0200
Subject: add long-lines.pl

Signed-off-by: Florian Pritz <bluewind@xssn.at>
---
 long-lines.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 long-lines.pl

(limited to 'long-lines.pl')

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";
+    }
+  }
+}
-- 
cgit v1.2.3-24-g4f1b