diff options
| author | pablo <pablosaavedra123@gmail.com> | 2021-02-22 23:31:50 -0300 |
|---|---|---|
| committer | pablo <pablosaavedra123@gmail.com> | 2021-02-22 23:31:50 -0300 |
| commit | 06c14615c629c0e68c2cd600bf0f888671278cd6 (patch) | |
| tree | 177154e74024971986cee29bb76537ac56942cc3 | |
| parent | 2c26164a5a90aa14a19078d845769d3ec9fbb5ae (diff) | |
| download | perlweeklychallenge-club-06c14615c629c0e68c2cd600bf0f888671278cd6.tar.gz perlweeklychallenge-club-06c14615c629c0e68c2cd600bf0f888671278cd6.tar.bz2 perlweeklychallenge-club-06c14615c629c0e68c2cd600bf0f888671278cd6.zip | |
adding the true one-liner
| -rw-r--r-- | challenge-100/pablo-saavedra/perl/ch-1.sh | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-100/pablo-saavedra/perl/ch-1.sh b/challenge-100/pablo-saavedra/perl/ch-1.sh new file mode 100644 index 0000000000..a341b21dc9 --- /dev/null +++ b/challenge-100/pablo-saavedra/perl/ch-1.sh @@ -0,0 +1 @@ +(($h, $m) = ($ARGV[0] =~ /(\d+?):(\d+)/)) ? $' =~ /pm/ ? printf "%02d:%02d", $h + 12 , $m : ($' !~ /am/ ? ($h >= 12 ? printf "%02d:%02d pm", $h - 12 , $m : printf "%02d:%02d am", $h, $m) : printf "%02d:%02d pm", $h, $m) : print ":("; |