From f5c37c78da4c9ddf2c6c36a8afee312eca7b98fe Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Tue, 4 Aug 2020 18:41:03 -0400
Subject: perl code for challenge 72 tast 2

---
 challenge-072/walt-mankowski/perl/ch-2.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 challenge-072/walt-mankowski/perl/ch-2.pl

(limited to 'challenge-072')

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 == $.;
+}
-- 
cgit