[ILUG] julian dates...

[fergal daly]

kevin lyda wrote:
> 
> so, using either a libc function or a perl function, how would one
> extract a date (day of month, month, year) from a julian date
> (year, day of year)?

Something like

#! /usr/bin/perl

use strict;

use Time::Local qw( timelocal );

my $year = 2001;
my $day = 60;

my $year_sec = timelocal(0, 0, 0, 1, 0, $year-1900);
my $new_sec = $year_sec + ($day-1) * 60 * 60 *24;

print localtime($new_sec)."\n";

my ($day, $month) = (localtime($new_sec))[3,4];
$month++;

print "day = $day, month = $month\n";