diff options
| -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 ":("; |