Select Code to Download

Select or download this

use WWW::Mechanize;
use HTML::TableExtract qw(tree);

Select or download this

2020/05/22 23:49:40 INFO ./3.6.pho.pl 
2020/05/22 23:49:40 INFO 33.4 -112.1 112.1 
2020/05/22 23:49:40 INFO PSR 
...
  }
]

Select or download this

#!/usr/bin/env perl

use strict;
...
#my $tx = $ua->post( $pturl2 => form => {  });

__END__

Select or download this

my $pturl2 =
'http://www.fourmilab.ch/cgi-bin/Yoursky?z=1&$lat&ns=North&lon=$west_l
+ong&ew=West';

#my $tx = $ua->post( $pturl2 => form => { utc => $dt->jd, date => '2' 
+});

Select or download this

$ ./1.1.astro.pl 
./1.1.astro.pl 
33.4 -112.1 112.1 
...
__END__ 

$

Select or download this

  my $start_time_str = $aforecast->{'startTime'};
  say "start is $start_time_str";
  my $start_time_dateobj = $dateparser->parse_datetime($start_time_str
+)

Select or download this

my $sun = Astro::Coord::ECI::Sun->universal ($time);
 
# Figure out if the Sun is up at the observer's location.
my ($azimuth, $elevation, $range) = $loc->azel ($sun);
print "The Sun is ", rad2deg ($elevation),
    " degrees above the horizon.\n";