diff options
| author | Lars Balker <balker@adapt.dk> | 2019-10-22 13:19:32 +0200 |
|---|---|---|
| committer | Lars Balker <balker@adapt.dk> | 2019-10-22 13:19:32 +0200 |
| commit | dc091e2c7ba1241a528a60620dad43e79e0350f3 (patch) | |
| tree | 3ad34bc4fc06c9d28221388bd75d86900f3a00dc /challenge-031 | |
| parent | e7a961f5d6fddfbbd1fc2e1a7ad781752ca9364d (diff) | |
| download | perlweeklychallenge-club-dc091e2c7ba1241a528a60620dad43e79e0350f3.tar.gz perlweeklychallenge-club-dc091e2c7ba1241a528a60620dad43e79e0350f3.tar.bz2 perlweeklychallenge-club-dc091e2c7ba1241a528a60620dad43e79e0350f3.zip | |
challenge 31 perl5
Diffstat (limited to 'challenge-031')
| -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; |