diff options
author | Jeroen Vermeulen <jtv@precisiontranslationtools.com> | 2015-05-17 16:04:04 +0300 |
---|---|---|
committer | Jeroen Vermeulen <jtv@precisiontranslationtools.com> | 2015-05-17 16:04:04 +0300 |
commit | a25193cc5da6a271c4676e843db80ee19221822a (patch) | |
tree | db764696f2e663016a9ab87a95846501c585b4aa /scripts/other/delete-scores.perl | |
parent | 108da163745699e724f581c3d33b1e8a5e26a9e9 (diff) |
Fix a lot of lint, mostly trailing whitespace.
This is lint reported by the new lint-checking functionality in beautify.py.
(We can change to a different lint checker if we have a better one, but it
would probably still flag these same problems.)
Lint checking can help a lot, but only if we get the lint under control.
Diffstat (limited to 'scripts/other/delete-scores.perl')
-rwxr-xr-x | scripts/other/delete-scores.perl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/scripts/other/delete-scores.perl b/scripts/other/delete-scores.perl index 08316c95b..ffb788867 100755 --- a/scripts/other/delete-scores.perl +++ b/scripts/other/delete-scores.perl @@ -1,4 +1,4 @@ -#!/usr/bin/env perl +#!/usr/bin/env perl use warnings; use strict; @@ -21,10 +21,10 @@ my @keepScores = split(/,/, $keepScoresStr); while (my $line = <STDIN>) { chomp($line); #print STDERR "line=$line\n"; - + my @toks = split(/\|/, $line); my @scores = split(/ /, $toks[6]); - + $toks[6] = DeleteScore($toks[6], \@keepScores); # output @@ -48,7 +48,7 @@ sub DeleteScore { my $string = $_[0]; my @keepScores = @{$_[1]}; - + $string = trim($string); my @toks = split(/ /, $string); @@ -57,7 +57,7 @@ sub DeleteScore $string .= $toks[ $keepScores[$i] ] ." "; } $string = " " .$string; - + return $string; } |