diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-21 12:04:51 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-21 12:04:51 +0100 |
| commit | 157572551f83fe5cc7b8c3ab283f61c204fccb38 (patch) | |
| tree | 43a9f9d4d080f6252a8d70747ab8ad4acbbf7e0f | |
| parent | 492edc99bfca2d879ea342c12e1fe1f0c2ab7317 (diff) | |
| parent | 2a09423282d4cc5ccf78189eca89961b872dec40 (diff) | |
| download | perlweeklychallenge-club-157572551f83fe5cc7b8c3ab283f61c204fccb38.tar.gz perlweeklychallenge-club-157572551f83fe5cc7b8c3ab283f61c204fccb38.tar.bz2 perlweeklychallenge-club-157572551f83fe5cc7b8c3ab283f61c204fccb38.zip | |
Merge pull request #817 from Doomtrain14/master
Added perl5 solution ch#31-1
| -rw-r--r-- | challenge-031/yet-ebreo/perl5/ch-1.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-031/yet-ebreo/perl5/ch-1.pl b/challenge-031/yet-ebreo/perl5/ch-1.pl new file mode 100644 index 0000000000..ffe41c3a6e --- /dev/null +++ b/challenge-031/yet-ebreo/perl5/ch-1.pl @@ -0,0 +1,17 @@ +#Create a function to check divide by zero error +#without checking if the denominator is zero. +use strict; +use warnings; +use feature 'say'; + +sub div_zero_check { + my @div = @_; + my $r = eval "$_[0]/$_[1]"; + $@ =~ /z/ ? -1 :$r ; +} +my $r; +say ( (($r = div_zero_check(112,0)) < 0) ? "Division by zero detected" : $r ); +say ( (($r = div_zero_check(0,0)) < 0) ? "Division by zero detected" : $r ); +say ( (($r = div_zero_check(0,1)) < 0) ? "Division by zero detected" : $r ); +say ( (($r = div_zero_check(32,12)) < 0) ? "Division by zero detected" : $r ); + |