diff options
| -rwxr-xr-x | challenge-042/peter-scott/perl/ch-1.sh | 2 | ||||
| -rwxr-xr-x | challenge-042/peter-scott/perl/ch-2.pl | 10 | ||||
| -rwxr-xr-x | challenge-042/peter-scott/perl/ch-2.pl~ | 2 |
3 files changed, 14 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"; 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..7dd7a7f00f --- /dev/null +++ b/challenge-042/peter-scott/perl/ch-2.pl~ @@ -0,0 +1,2 @@ +#!/usr/bin/env perl + |