diff options
| -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; |