Merge pull request #1124 from pjscott/branch-for-challenge-042

Branch for challenge 042

2 files changed, 12 insertions, 0 deletions

diff --git a/challenge-042/peter-scott/perl/ch-1.sh b/challenge-042/peter-scott/perl/ch-1.sh
new file mode 100755
index 0000000000..5f5fc77bd1
--- /dev/null
+++ b/challenge-042/peter-scott/perl/ch-1.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+perl -E 'say sprintf "Decimal %d = Octal %o", $_, $_ for 0 .. 50'
diff --git a/challenge-042/peter-scott/perl/ch-2.pl b/challenge-042/peter-scott/perl/ch-2.pl
new file mode 100755
index 0000000000..28a06ddeaf
--- /dev/null
+++ b/challenge-042/peter-scott/perl/ch-2.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use 5.016;
+
+my ($MIN_STR_LEN, $MAX_STR_LEN) = (4,10);
+my $string_length = int( rand( $MAX_STR_LEN - $MIN_STR_LEN ) ) + $MIN_STR_LEN;
+my $string = '';
+$string .= @{[qw{ ( ) }]}[rand 2] for 1 .. $string_length;
+print "$string - ";
+1 while $string =~ s/\(\)//;
+say $string ? "NOT OK" : "OK";