challenge-031 andrezgz solution

2 files changed, 34 insertions, 0 deletions

diff --git a/challenge-031/andrezgz/perl5/ch-1.pl b/challenge-031/andrezgz/perl5/ch-1.pl
new file mode 100644
index 0000000000..3da84bdbb8
--- /dev/null
+++ b/challenge-031/andrezgz/perl5/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-031/
+# Task #1
+# Create a function to check divide by zero error
+# without checking if the denominator is zero.
+
+use strict;
+use warnings;
+
+sub is_division_by_zero {
+    my ($num,$den) = @_;
+    return if ( eval { $num = $num/$den; 1 } );
+    return 1;
+}
+
+print 'Division by zero' if is_division_by_zero(1,0);
diff --git a/challenge-031/andrezgz/perl5/ch-2.pl b/challenge-031/andrezgz/perl5/ch-2.pl
new file mode 100644
index 0000000000..d17492f8f4
--- /dev/null
+++ b/challenge-031/andrezgz/perl5/ch-2.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-031/
+# Task #2
+# Create a script to demonstrate creating dynamic variable name,
+# assign a value to the variable and finally print the variable.
+# The variable name would be passed as command line argument.
+
+use strict;
+use warnings;
+
+my $var_name = shift;
+
+# It's gettin' ugly
+no strict 'refs';                                  # This works sometimes, but it's a very bad idea.
+${$var_name} = 'a value';                          # For reasons and better alternatives refer to
+print 'the variable' if ${$var_name} eq 'a value'; # https://metacpan.org/pod/perlfaq7#How-can-I-use-a-variable-as-a-variable-name