diff options
| author | 冯昶 <fengchang@novel-supertv.com> | 2023-04-24 15:20:16 +0800 |
|---|---|---|
| committer | 冯昶 <fengchang@novel-supertv.com> | 2023-04-24 15:20:16 +0800 |
| commit | 41d1e582715466e4aa27fbb99e1591afa707fa78 (patch) | |
| tree | 6affcdf0e5c02371adac673aeda0c4d14a81d974 /challenge-031/jo-37/perl/ch-1.pl | |
| parent | 64b7c608210e55b5564fe44df68d1eacf6d25969 (diff) | |
| parent | 9df2d961ae00534346eaaceffaf8cfee4ecc88bb (diff) | |
| download | perlweeklychallenge-club-41d1e582715466e4aa27fbb99e1591afa707fa78.tar.gz perlweeklychallenge-club-41d1e582715466e4aa27fbb99e1591afa707fa78.tar.bz2 perlweeklychallenge-club-41d1e582715466e4aa27fbb99e1591afa707fa78.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'challenge-031/jo-37/perl/ch-1.pl')
| -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."; |