while that will print the date, it is not the julian date. The julian date
is the number of days so far this year.
Instead, try this:
use Time::JulianDay
$jd = julian_day($year, $month_1_to_12, $day)
or this
$jd = local_julian_day($seconds_since_1970);
Aman Thind
<[EMAIL PROTECTED] To: Steve
<[EMAIL PROTECTED]>, [EMAIL PROTECTED]
in> cc: (bcc: Brent
Michalski/STL/MASTERCARD)
Subject: RE: Julian Date
11/08/02 09:14 AM
Hi Steve, All
Herez how you do it :
$sec = (localtime())[0];
$min = (localtime())[1];
$hour = (localtime())[2];
print "Time => $hour : $min : $sec\n";
$day = (localtime())[3];
$month = (localtime())[4] + 1;
$year = (localtime())[5];
$year = $year + 1900;
print "Date => $month \\ $day \\ $year";
-aman.
-----Original Message-----
From: Steve [mailto:fouttyw@;hawaii.rr.com]
Sent: Friday, November 08, 2002 7:26 PM
To: [EMAIL PROTECTED]
Subject: Julian Date
Can anyone tell me how to get the Julie Date via perl. I have an
application
that
the user wants to have the julian date as part of a tracking number..
Thanks,
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
