diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-22 14:14:27 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-22 14:14:27 +0100 |
| commit | f3631f1834c34f9496d29a7dfa4767cc3c80da7f (patch) | |
| tree | 89ac6b41c4ae39e0fc63904f76b2dea7c1e73d4d | |
| parent | 608f78537ea8b1a0e5539180a599ad596f6f8bd5 (diff) | |
| parent | a6940ae3c8e2087107100d68eb252cd9d57386b4 (diff) | |
| download | perlweeklychallenge-club-f3631f1834c34f9496d29a7dfa4767cc3c80da7f.tar.gz perlweeklychallenge-club-f3631f1834c34f9496d29a7dfa4767cc3c80da7f.tar.bz2 perlweeklychallenge-club-f3631f1834c34f9496d29a7dfa4767cc3c80da7f.zip | |
Merge pull request #828 from lbalker/master
challenge 031 perl5 from Lars Balker
| -rw-r--r-- | challenge-031/lars-balker/perl5/ch-1.pl | 9 | ||||
| -rw-r--r-- | challenge-031/lars-balker/perl5/ch-2.pl | 9 |
2 files changed, 18 insertions, 0 deletions
diff --git a/challenge-031/lars-balker/perl5/ch-1.pl b/challenge-031/lars-balker/perl5/ch-1.pl new file mode 100644 index 0000000000..b0e5a60b77 --- /dev/null +++ b/challenge-031/lars-balker/perl5/ch-1.pl @@ -0,0 +1,9 @@ +sub div { + my ($num, $denom) = @_; + my $res; + eval { $res = $num / $denom; }; + return $res // "divide by zero error" +} + +say div(1,0); +say div(1,1)' diff --git a/challenge-031/lars-balker/perl5/ch-2.pl b/challenge-031/lars-balker/perl5/ch-2.pl new file mode 100644 index 0000000000..605bb93eb1 --- /dev/null +++ b/challenge-031/lars-balker/perl5/ch-2.pl @@ -0,0 +1,9 @@ +use v5.10; +use warnings; +use strict; + +my $var = shift // die "usage: $0 <varname>"; + +no strict 'refs'; # we're specifically abusing this feature +$$var = $var; +say $$var; |