Added some small boring scripts and programs writen in few last years
[mirrors/Programs.git] / perl / fullmoon / dbg / fullmoon.pl
CommitLineData
21c4e167
H
1#!/usr/bin/env perl
2use strict;
3use warnings;
4
5my $period = int(27.321661*24*60*60); #Period of moon rotation in seconds
6$period = 2571720;
7my $newmoon = 366382697; #Some newmoon in history
8my $fullmoon = 365613152; #Some fullmoon in history (14-15d after newmoon)
9$fullmoon = 1106645520;
10my $now = time();
11
12while($fullmoon < $now) {
13 $fullmoon += $period;
14}
15$fullmoon = int($fullmoon);
16
17my $fullmoon_remaining = ($fullmoon-$now)/60/60/24;
18
19print "$fullmoon = ".localtime($fullmoon)." = ".$fullmoon_remaining." days remaining\n";
20#1254629460
21
This page took 0.095223 seconds and 4 git commands to generate.