summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xlong-lines.pl30
1 files changed, 15 insertions, 15 deletions
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 (<FILE>) {
- $line++;
- $_ = expand $_;
- if (length > $max) {
- print "\"$file\" - line $line: ", length, " chars\n";
- }
- }
+ open FILE,"<", $file;
+ $line = 0;
+ while (<FILE>) {
+ $line++;
+ $_ = expand $_;
+ if (length > $max) {
+ print "\"$file\" - line $line: ", length, " chars\n";
+ }
+ }
}