diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-03-26 13:00:53 +0200 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-04-19 17:15:33 +0200 |
| commit | 0c4560d683ac4e64fb94ca6672eeb89d09bca944 (patch) | |
| tree | 58caf1fb28e9f398288d764082f1874ca0e333b4 /challenge-031/jo-37 | |
| parent | 93b063ed36973f824849934ed97076e72cfa32de (diff) | |
| download | perlweeklychallenge-club-0c4560d683ac4e64fb94ca6672eeb89d09bca944.tar.gz perlweeklychallenge-club-0c4560d683ac4e64fb94ca6672eeb89d09bca944.tar.bz2 perlweeklychallenge-club-0c4560d683ac4e64fb94ca6672eeb89d09bca944.zip | |
challenge 031 task 1
Diffstat (limited to 'challenge-031/jo-37')
| -rwxr-xr-x | challenge-031/jo-37/perl/ch-1.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-031/jo-37/perl/ch-1.pl b/challenge-031/jo-37/perl/ch-1.pl new file mode 100755 index 0000000000..e705298018 --- /dev/null +++ b/challenge-031/jo-37/perl/ch-1.pl @@ -0,0 +1,8 @@ +#!/usr/bin/perl + +use v5.16; +use warnings; + +my $div = eval {$ARGV[0] / $ARGV[1]}; +say $@ ? $@ : $div; +say "done."; |