- or download this
use Astro::Coords;
use Astro::Telescope;
...
$ra = $c->ra( format => 'd' );
$dec = $c->dec( format => 'd' );
print "az: $az\nel: $el\n\nra: $ra\ndec: $dec\n";
- or download this
C:\Users\schweini\Dropbox\hacks>perl laserTelescope.pl
az: 64.4509897905136
...
ra: 251.654925187611
dec: -23.3814670583575
- or download this
**********************************************************************
+*********************************************************************
+*******************************************************
Date__(UT)__HR:MN R.A._(J2000.0)_DEC. X_(sat-primary)_Y SatPANG
+APmag S-brt Ob-lon Ob-lat delta deldot 1-way_LT
+ S-O-T /r S-T-O PsAng PsAMV N.Pole-RA N.Pole-DC
...
2012-Oct-25 17:00 * 251.62267 -23.37831 145303.8 -39580.6 111.589
+ 1.24 4.22 58.64 5.31 2.03499732019437 5.6635701 16.924557 4
+0.6752 /T 26.8281 n.a. n.a. 317.66783 52.87869
2012-Oct-25 18:00 * 251.65527 -23.38245 145272.4 -39544.2 111.581
+ 1.24 4.22 73.23 5.30 2.03513458616844 5.7471012 16.925698 4
+0.6645 /T 26.8223 n.a. n.a. 317.66783 52.87869
2012-Oct-25 19:00 * 251.68784 -23.38655 145240.7 -39507.7 111.573
+ 1.24 4.22 87.83 5.28 2.03527405462362 5.8455422 16.926858 4
+0.6537 /T 26.8166 n.a. n.a. 317.66783 52.87869