diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-15 05:18:21 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-15 05:18:21 +0100 |
| commit | 3295f94a3fc8bf6b1b78d24609baa643db77a352 (patch) | |
| tree | 13c58722931dae9cb031a73c2afaa0143b3ac017 | |
| parent | edb09502bebec7d58a06debe6abbc3495ef9cc64 (diff) | |
| download | perlweeklychallenge-club-3295f94a3fc8bf6b1b78d24609baa643db77a352.tar.gz perlweeklychallenge-club-3295f94a3fc8bf6b1b78d24609baa643db77a352.tar.bz2 perlweeklychallenge-club-3295f94a3fc8bf6b1b78d24609baa643db77a352.zip | |
- Tidied up Perl solution.
| -rwxr-xr-x | challenge-072/mohammad-anwar/perl/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-072/mohammad-anwar/perl/ch-2.pl b/challenge-072/mohammad-anwar/perl/ch-2.pl index 5aefb7ab19..fe1c1d817d 100755 --- a/challenge-072/mohammad-anwar/perl/ch-2.pl +++ b/challenge-072/mohammad-anwar/perl/ch-2.pl @@ -25,9 +25,9 @@ sub lines_range { my ($file, $a, $b) = @_; die "ERROR: Invalid file [$file].\n" unless (-e $file && -f _ && -r _ && -T _); - die "ERROR: Missing A.\n" unless defined $A; - die "ERROR: Missing B.\n" unless defined $B; - die "ERROR: Invalid range [$A \- $B].\n" unless ($A <= $B); + die "ERROR: Missing A.\n" unless defined $a; + die "ERROR: Missing B.\n" unless defined $b; + die "ERROR: Invalid range [$a \- $b].\n" unless ($a <= $b); open(my $F, "<", $file) || die "ERROR: Failed to open [$!]\n"; my @lines = <$F>; |