Task 2

1 files changed, 27 insertions, 0 deletions

diff --git a/challenge-072/perlboy1967/perl/ch-2.pl b/challenge-072/perlboy1967/perl/ch-2.pl
new file mode 100755
index 0000000000..f664a4a120
--- /dev/null
+++ b/challenge-072/perlboy1967/perl/ch-2.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+# Perl Weekly Challenge - 072
+#
+# Task 2 - Lines Range
+#
+# Author: Niels 'PerlBoy' van Dijke
+
+my ($file, $A, $B) = @ARGV;
+
+die "Cannot read from '$file' ($!)"
+  unless (-r $file);
+
+die "A must be positve number"
+  unless (defined $A and $A =~ m#^[1-9][0-9]*$#);
+
+die "B must be positve number and bigger than A"
+  unless (defined $A and $A =~ m#^[1-9][0-9]*$# and $A <= $B);
+
+if (!open(F, "<$file")) {
+  die "Weird... I thought we could read from '$file'...";
+} else {
+  while (<F>) {
+     print if ($. >= $A and $. <= $B);
+  }
+  close(F);
+}