Select Code to Download

Select or download this

  WYANT/Astro-satpass-0.117.tar.gz
  ./Build test -- OK
Running Build install for WYANT/Astro-satpass-0.117.tar.gz
Building Astro-satpass
Installing /usr/local/share/perl/5.30.0/Astro/Coord/ECI.pm
Installing /usr/local/share/perl/5.30.0/Astro/Coord/ECI/Star.pm

Select or download this

#!/usr/bin/perl 

use Time::Piece;
...
$logger->info("Time is $t");
$logger->info("Julian day is $jd");
__END__

Select or download this

######################################################################
+#########
#                              Log::Log4perl Conf                     
+        #
######################################################################
+#########
...
log4perl.appender.LOG1.mode      = append
log4perl.appender.LOG1.layout    = Log::Log4perl::Layout::PatternLayou
+t
log4perl.appender.LOG1.layout.ConversionPattern = %d %p %m %n

Select or download this

2021/03/19 19:31:51 INFO ./4.astro.pl 
2021/03/19 19:31:51 INFO Object    Azimuth    Elevation 
2021/03/19 19:31:51 INFO Mars    220.365443728883     65.2689423230543
+ 
...
2021/03/20 01:00:14 INFO Moon    74.2622910906381    22.4512455528347 
2021/03/20 01:00:14 INFO Time is Sat Mar 20 01:00:14 2021 
2021/03/20 01:00:14 INFO Julian day is 2459293.7918287

Select or download this

$ perl -d 5.astro.pl

Loading DB routines from perl5db.pl version 1.55
...
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.
  DB<12> q