#!/usr/bin/perl 

use v5.030;
use Time::Piece;
use Log::Log4perl;
use IPC::System::Simple qw/systemx capturex/;
use Astro::Coords;

my $t         = localtime;
my $jd        = $t->julian_day;
my $log_conf4 = '/home/fritz/Documents/perlmonks/conf_files/4.conf';
Log::Log4perl::init($log_conf4);    #info
my $logger = Log::Log4perl->get_logger();
$logger->info("Time is $t");
$logger->info("Julian day is $jd");
$logger->info("$0");

my @belt = qw/ Alnitak Alnilam Mintaka/;
$logger->info("@belt");

my ( @captured, @processed );
for (@belt) {
  my $stdout = capturex 'perl', '1.simbad.pl', "$_";
  push @captured, $stdout;
}
$logger->info("@captured");

for (@captured) {

  # Q3: How do I capture the 3 numeric fields for declination and
  # Right Ascension, dealing with the potential minus sign?

  # Ignore the details, capture non-whitepsace:
  $_ =~ m/:\s(\S+)\s(\S+)\s(\S+)\s+(\S+)\s(\S+)\s(\S+)\s/;

  my $ra  = "$1 $2 $3";
  my $dec = "$4 $5 $6";

  print "$ra, $dec \n";

  my $c = Astro::Coords->new(
    ra   => $ra,
    dec  => $dec,
    type => 'J2000'
  );

  push @processed, $c;

}
say '======';
for (@processed) {

  print    # sexagesimal
    $_->ra( format => 'sex' ), ", ", $_->dec( format => 'sex' ), "\n";

  print    # degrees
    $_->ra( format => 'deg' ), ", ", $_->dec( format => 'deg' ), "\n";

  print    # radians
    $_->ra( format => 'rad' ), ", ", $_->dec( format => 'rad' ), "\n\n";

}
__END__