[MacPerl] Converting Military Time to Regular Time...

[claes@canit.se (Claes Bjorklund)]

Hi
think this work..
$hour=($hour-12)*($hour>=12)+$hour*($hour<12);
\Claes
Below is part of what I use to tell time in my message board script.  I was
wondering if anyone had a subroutine for changing the time so instead of
displaying 17:20:34 it could just say 5:20 PM.

Matt Kraft

   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

   if ($sec < 10) {
      $sec = "0$sec";
   }
   if ($min < 10) {
      $min = "0$min";
   }
   if ($hour < 10) {
      $hour = "0$hour";
   }
   if ($mon < 10) {
      $mon = "0$mon";
   }
   if ($mday < 10) {
      $mday = "0$mday";
   }

   $month = ($mon + 1);

   @months =
("January","February","March","April","May","June","July","August","September","
October","November","December");



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch

<><><><><><><><><><><><><><><><><><><><><><><><><><><>
Claes Bjorklund                            --   ¬¬  --
claes@canit.se                  A      --   ~ ~   --
http://www.canit.se/~claes     ||| _
Citizen of Ladonia             /|7/|      _|_
http://www.aim.se/ladonia     ||\\/      //||\      |
\_.__-___-_-__/\_--_|_.__--_.///|\\_____///\\\\_____|___



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch