From da4b77ab4deb7eb84e6cb68db5d5669363712b38 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Sun, 30 Dec 2012 20:49:44 +0100 Subject: long-lines.pl: switch spaces to tabs Signed-off-by: Florian Pritz --- long-lines.pl | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'long-lines.pl') diff --git a/long-lines.pl b/long-lines.pl index d0f0c21..c0e1da0 100755 --- a/long-lines.pl +++ b/long-lines.pl @@ -9,12 +9,12 @@ my %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; + 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; @@ -25,13 +25,13 @@ $max = $opt{m} if ($opt{m}); $Text::Tabs::tabstop = $opt{t} if ($opt{t}); for my $file (@ARGV) { - open FILE,"<", $file; - $line = 0; - while () { - $line++; - $_ = expand $_; - if (length > $max) { - print "\"$file\" - line $line: ", length, " chars\n"; - } - } + open FILE,"<", $file; + $line = 0; + while () { + $line++; + $_ = expand $_; + if (length > $max) { + print "\"$file\" - line $line: ", length, " chars\n"; + } + } } -- cgit v1.2.3-24-g4f1b