perl code for challenge 72 tast 2

1 files changed, 21 insertions, 0 deletions

diff --git a/challenge-072/walt-mankowski/perl/ch-2.pl b/challenge-072/walt-mankowski/perl/ch-2.pl
new file mode 100644
index 0000000000..a429abd68f
--- /dev/null
+++ b/challenge-072/walt-mankowski/perl/ch-2.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use feature qw(:5.32);
+use experimental qw(signatures);
+use autodie;
+
+# TASK #2 › Lines Range
+# Submitted by: Mohammad S Anwar
+#
+# You are given a text file name $file and range $A - $B where $A <= $B.
+#
+# Write a script to display lines in the given file in the line number
+# range between $A and $B, inclusive.
+
+my ($fname, $a, $b) = @ARGV;
+
+open my $f, '<', $fname;
+while (<$f>) {
+    print if $a == $. .. $b == $.;
+}