diff options
| author | Peter Scott <Peter@PSDT.com> | 2020-01-08 16:28:01 -0800 |
|---|---|---|
| committer | Peter Scott <Peter@PSDT.com> | 2020-01-08 16:28:01 -0800 |
| commit | 2d8a083b82911680ed20c43d6d0c2eb017f25efd (patch) | |
| tree | bb9fb81df6f057d796a49a3d709e74201af9ecf7 | |
| parent | d01f7d7aaf14f1b658c18445599ed73b339dcc97 (diff) | |
| download | perlweeklychallenge-club-2d8a083b82911680ed20c43d6d0c2eb017f25efd.tar.gz perlweeklychallenge-club-2d8a083b82911680ed20c43d6d0c2eb017f25efd.tar.bz2 perlweeklychallenge-club-2d8a083b82911680ed20c43d6d0c2eb017f25efd.zip | |
Short and sweet
| -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 + |