2022/12/15 23:38:42 INFO Name	Right Ascension		Declination 
2022/12/15 23:38:42 INFO Mars	1.23928088293942	0.433953921126419 
2022/12/15 23:38:42 INFO Moon	3.05180035788273	0.114033717122039 
2022/12/15 23:38:42 INFO Aldeb	1.20392811802569	0.288139315093836  
2022/12/15 23:38:42 INFO Time is Thu Dec 15 23:38:42 2022 
2022/12/15 23:38:42 INFO Julian day is 2459929.776875 
2022/12/16 20:45:44 INFO ./1.betelgeuse.pl 
2022/12/16 20:45:44 INFO Name	Right Ascension		Declination 
2022/12/16 20:45:44 INFO Mars	1.23352830004944	0.43369447662583 
2022/12/16 20:45:44 INFO Moon	3.23649903846235	0.0250705117504442 
2022/12/16 20:45:44 INFO Aldeb	1.20392811802569	0.288139315093836  
2022/12/16 20:45:44 INFO Time is Fri Dec 16 20:45:44 2022 
2022/12/16 20:45:44 INFO Julian day is 2459930.65675926 


##</code><code>##

#!/usr/bin/perl 

use Time::Piece;
use Astro::Coord::ECI::Utils 'deg2rad';
use Astro::Coords;
use Log::Log4perl;

my $file = '/home/fritz/Documents/perlmonks/1.aldeb.txt';

# unlink $file or warn "Could not unlink $file: $!";
my $log_conf4 = '/home/fritz/Documents/perlmonks/conf_files/3.conf';
Log::Log4perl::init($log_conf4);    #info
my $logger = Log::Log4perl->get_logger();
$logger->info("$0");

$logger->info("Name\tRight Ascension\t\tDeclination");

for my $name (qw/Mars Moon/) {

  my $planet2 = Astro::Coords->new( planet => $name );

  $planet2->datetime( Time::Piece->new );

  my $ra  = $planet2->ra( format => q/rad/ );
  my $dec = $planet2->dec( format => q/rad/ );

  $logger->info("$name\t$ra\t$dec");

}

my $aldeb_ra_degrees          = 68.98;
my $aldeb_ra_radians          = deg2rad($aldeb_ra_degrees);
my $aldeb_declination_degrees = 16.509166666667;
my $aldeb_dec_radians         = deg2rad($aldeb_declination_degrees);
$logger->info("Aldeb\t$aldeb_ra_radians\t$aldeb_dec_radians ");
my $t  = localtime;
my $jd = $t->julian_day;

$logger->info("Time is $t");
$logger->info("Julian day is $jd");

__END__ 




##</code><code>##

###############################################################################
#                              Log::Log4perl Conf                             #
###############################################################################
log4perl.rootLogger              = DEBUG, LOG1, SCREEN
log4perl.appender.SCREEN         = Log::Log4perl::Appender::Screen
log4perl.appender.SCREEN.stderr  = 0
log4perl.appender.SCREEN.layout  = Log::Log4perl::Layout::PatternLayout
log4perl.appender.SCREEN.layout.ConversionPattern = %m %n
log4perl.appender.LOG1           = Log::Log4perl::Appender::File
log4perl.appender.LOG1.filename  = /home/fritz/Documents/perlmonks/1.aldeb.txt
log4perl.appender.LOG1.mode      = append
log4perl.appender.LOG1.layout    = Log::Log4perl::Layout::PatternLayout
log4perl.appender.LOG1.layout.ConversionPattern = %d %p %m %n

##</code><code>##

Pronunciation 	/&#712;b&#603;t&#601;ld&#658;u&#720;z, &#712;bi&#720;t&#601;l-, -d&#658;u&#720;s/[1][2]
Right ascension 	05h 55m 10.30536s[3]
Declination 	+07° 24&#8242; 25.4304&#8243;[3]
Apparent magnitude (V) 	+0.50[4] (0.0–1.6[5])
Characteristics
Evolutionary stage 	Red supergiant
Spectral type 	M1–M2 Ia–ab[6]
Apparent magnitude (J) 	&#8722;3.00[7]
Apparent magnitude (K) 	&#8722;4.05[7]
U&#8722;B color index 	+2.06[4]
B&#8722;V color index 	+1.85[4]
Variable type 	SRc[8]
Absolute magnitude (MV)	&#8722;5.85[12]


##</code><code>##

fritz@laptop:~/Documents$ trans :ru betelgeuse -p
betelgeuse

&#1073;&#1077;&#1090;&#1077;&#1083;&#1100;&#1075;&#1077;&#1081;&#1079;&#1077;
(betel'geyze)

Translations of betelgeuse
[ English -> &#1056;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081; ]

betelgeuse
    &#1073;&#1077;&#1090;&#1077;&#1083;&#1100;&#1075;&#1077;&#1081;&#1079;&#1077;, &#1041;&#1077;&#1090;&#1077;&#1083;&#1100;&#1075;&#1077;&#1081;&#1079;&#1077;
fritz@laptop:~/Documents$