Help for this page

Select Code to Download


  1. or download this
    my $ap= $hour>11 ? "PM" : "AM";
$hour = $hour % 12; 
$hour = $hour || 12;
  2. or download this
    $date = sprintf '%3s:%02d:%02d:%4d', @days[$wday], $mday, $mon, $milly
+ear; 
$time = sprintf '%02d:%02d:%02d:%2s:%11s', $hour, $min, $sec, $ap, $da
+te;