From 2667f66583e00505397e555cadc42835cf207358 Mon Sep 17 00:00:00 2001 From: Rasmus Steinke Date: Sat, 15 Jul 2017 21:23:40 +0200 Subject: properly ommit last column in loop --- clerk_column.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'clerk_column.pl') diff --git a/clerk_column.pl b/clerk_column.pl index cbdca6c..34f6531 100755 --- a/clerk_column.pl +++ b/clerk_column.pl @@ -19,7 +19,7 @@ while (my $line = <>) { for my $line (@lines) { my @parts = split(/\t/, $line); my $counter = 0; - for (; $counter < @parts; $counter++) { + for (; $counter < @parts - 1; $counter++) { $parts[$counter] =~ s/\s+$//; my $partlen = $width{$counter}; printf "%-*s\t", $partlen, $parts[$counter]; -- cgit v1.2.3-24-g4f1b