Merge pull request #852 from jaldhar/challenge-031

Challenge 31 by Jaldhar H. Vyas

5 files changed, 56 insertions, 0 deletions

diff --git a/challenge-031/jaldhar-h-vyas/blog.txt b/challenge-031/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..03fa077c03
--- /dev/null
+++ b/challenge-031/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2019/10/perl_weekly_challenge_week_31.html
diff --git a/challenge-031/jaldhar-h-vyas/perl5/ch-1.pl b/challenge-031/jaldhar-h-vyas/perl5/ch-1.pl
new file mode 100755
index 0000000000..f9837c40fb
--- /dev/null
+++ b/challenge-031/jaldhar-h-vyas/perl5/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use 5.010;
+use warnings;
+use strict;
+use English qw/ -no_match_vars /;
+
+sub isDividedByZero {
+    my ($numerator, $denominator) = @_;
+
+    eval { $_ = $numerator / $denominator; };
+
+    if ($EVAL_ERROR =~ /division by zero/ms) {
+        return 1;
+    }
+
+    return undef;
+}
diff --git a/challenge-031/jaldhar-h-vyas/perl5/ch-2.pl b/challenge-031/jaldhar-h-vyas/perl5/ch-2.pl
new file mode 100755
index 0000000000..632f0b92f8
--- /dev/null
+++ b/challenge-031/jaldhar-h-vyas/perl5/ch-2.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use 5.010;
+use warnings;
+use strict;
+use English qw/ -no_match_vars /;
+
+if (scalar @ARGV != 1) {
+    die "$PROGRAM_NAME variable-name\n";
+}
+
+$$ARGV[0] = 42;
+
+say "$ARGV[0] = $$ARGV[0]";
diff --git a/challenge-031/jaldhar-h-vyas/perl6/ch-1.p6 b/challenge-031/jaldhar-h-vyas/perl6/ch-1.p6
new file mode 100755
index 0000000000..cf06877fb9
--- /dev/null
+++ b/challenge-031/jaldhar-h-vyas/perl6/ch-1.p6
@@ -0,0 +1,17 @@
+#!/usr/bin/perl6
+
+sub isDividedByZero($numerator, $denominator) {
+        ($numerator / $denominator).grep({});
+
+        CATCH {
+            default {
+                return True;
+            }
+        }
+
+    return False;
+}
+
+sub MAIN(Int $numerator, Int $denominator) {
+    say isDividedByZero($numerator, $denominator) ?? 'yes' !! 'no';
+}
\ No newline at end of file
diff --git a/challenge-031/jaldhar-h-vyas/perl6/ch-2.p6 b/challenge-031/jaldhar-h-vyas/perl6/ch-2.p6
new file mode 100755
index 0000000000..6b38d37234
--- /dev/null
+++ b/challenge-031/jaldhar-h-vyas/perl6/ch-2.p6
@@ -0,0 +1,8 @@
+#!/usr/bin/perl6
+
+sub MAIN( Str $var ) {
+    my $newvar = $var;
+    $($newvar) = 42;
+
+    say "$var = ", $($newvar);
+}
\ No newline at end of file