diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-15 05:07:41 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-15 05:07:41 +0100 |
| commit | edb09502bebec7d58a06debe6abbc3495ef9cc64 (patch) | |
| tree | c75c2bf7dce6057f03d47375d09b06425303c124 | |
| parent | 46203ea4524371ebfcb5e8a8ba25ac07309ae2b1 (diff) | |
| download | perlweeklychallenge-club-edb09502bebec7d58a06debe6abbc3495ef9cc64.tar.gz perlweeklychallenge-club-edb09502bebec7d58a06debe6abbc3495ef9cc64.tar.bz2 perlweeklychallenge-club-edb09502bebec7d58a06debe6abbc3495ef9cc64.zip | |
- Tidied up Perl solution.
| -rwxr-xr-x | challenge-072/mohammad-anwar/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-072/mohammad-anwar/perl/ch-2.pl b/challenge-072/mohammad-anwar/perl/ch-2.pl index f70396b76f..5aefb7ab19 100755 --- a/challenge-072/mohammad-anwar/perl/ch-2.pl +++ b/challenge-072/mohammad-anwar/perl/ch-2.pl @@ -15,7 +15,7 @@ my $F = $ARGV[0]; my $A = $ARGV[1]; my $B = $ARGV[2]; -print lines_range($F, $A, $B), "\n"; +lines_range($F, $A, $B); # # @@ -33,5 +33,5 @@ sub lines_range { my @lines = <$F>; close($F); - print $lines[$_] for $A-1..$B-1; + print $lines[$_] for --$a..--$b; } |