Help for this page

Select Code to Download


  1. or download this
      
  my ($whole,$fract) = ($hjd =~ /(\d+)(\.\d+)?/);