Help for this page

Select Code to Download


  1. or download this
    perl -MAstro::Montenbruck::Time=jdnow,jd2mjd,jd_cent -e '$|++;print sp
    +rintf("%-22s","Julian day").sprintf("%-22s","Modified Julian day").sp
    +rintf("%-22s","Julian centuries since J2000.0")."\n";while(){$j=jdnow
    +();print"\r".sprintf("%-22s",$j).sprintf("%-22s",jd2mjd($j)).sprintf(
    +"%-22s",jd_cent($j));sleep 1}'
    
  2. or download this
    #!/usr/bin/perl
    
    ...
    
      sleep 1
    }