Oracle FAQ | Your Portal to the Oracle Knowledge Grid |
![]() |
![]() |
Home -> Community -> Mailing Lists -> Oracle-L -> RE: Perl - Was unix time conversion function
I think it's like almost any subjective idea: it's beautiful if you love
it, heinous if you hate it.
I love Perl; it does what I mean. The only thing I really don't like about Perl 5 is its yucky way of supporting complex data structures. I'm eager to have some spare time someday to study the Perl 6 spec in more detail.
Cary Millsap
Hotsos Enterprises, Ltd.
http://www.hotsos.com
Upcoming events:
- 2003 Hotsos Symposium <http://www.hotsos.com/events/symposium> on
OracleR System Performance, Feb 9-12 Dallas
- RMOUG Training Days 2003 <http://www.rmoug.org> , Mar 5-6 Denver
-----Original Message-----
Freeman
Sent: Tuesday, January 28, 2003 12:40 AM
To: Multiple recipients of list ORACLE-L
Cary.... I once thought I wanted to do some Perl coding... So I bought a book and started to play with it. It made my head bleed... literally I had little droplets of blood emerging from my head.... They rushed me to the hospital and put me in the Perl ward where I languished for days on IV's of Mountain Dew and pulverized Ritz crackers..... it was close.
In my mind there is nothing obvious about Perl, this coming from and old C coder who did pointers and linked lists in his sleep years ago. I don't know, maybe I was having a bad day and it's time to get my "learning Perl" book out again....
Anyone else feel that way about Perl or am I a lone wolf in a Perl world?
RF
-----Original Message-----
Millsap
Sent: Friday, January 24, 2003 4:29 PM
To: Multiple recipients of list ORACLE-L
At the risk of stating the obvious, doing it in Perl looks like this:
#!/usr/bin/perl
use Date::Format qw(time2str);
my $t = 1043447100; # for example
print time2str("%T %A %d %B %Y", $t), "\n";
Cary Millsap
Hotsos Enterprises, Ltd.
http://www.hotsos.com
Upcoming events:
- 2003 Hotsos Symposium <http://www.hotsos.com/events/symposium> on
OracleR System Performance, Feb 9-12 Dallas
- RMOUG Training Days 2003 <http://www.rmoug.org> , Mar 5-6 Denver
-----Original Message-----
Ethan
Sent: Friday, January 24, 2003 3:30 PM
To: Multiple recipients of list ORACLE-L
Kinda...you can change the year to 1970 if you want, this also converts to minutes, not seconds. It is a really ugly function but it seems to work. You could always use perl.
function f_minutes {
# Funky function I use to calculate the number of minutes since 2000
MIN_YEAR=$( date +"%Y" ) MIN_YEAR=$( expr ${MIN_YEAR} - 2000 ) MIN_YEAR=$( expr ${MIN_YEAR} \* 525600 ) MIN_DAYS=$( date +"%j" ) MIN_DAYS=$( expr "${MIN_DAYS}" - 1 ) MIN_DAYS=$( expr "${MIN_DAYS}" \* 1440 ) MIN_HOURS=$( date +"%H" ) MIN_HOURS=$( expr "${MIN_HOURS}" \* 60 ) MIN_MINS=$( date +"%M" ) MIN_TOTAL=$(( ${MIN_YEAR} + ${MIN_DAYS} + ${MIN_HOURS} + ${MIN_MINS}))
print ${MIN_TOTAL}
}
-----Original Message-----
[mailto:MATT.ADAMS_at_APPL.GE.COM]
Sent: Friday, January 24, 2003 1:14 PM
To: Multiple recipients of list ORACLE-L
Anybody got a handy little function to
convert a standard unix seconds-since-Jan-1970 epoch
time (stored as a number) to a readable date?
It would save me a lot of time not having to re-invent the wheel.
Matt
-- Please see the official ORACLE-L FAQ: http://www.orafaq.net -- Author: Cary Millsap INET: cary.millsap_at_hotsos.com Fat City Network Services -- 858-538-5051 http://www.fatcity.com San Diego, California -- Mailing list and web hosting services --------------------------------------------------------------------- To REMOVE yourself from this mailing list, send an E-Mail message to: ListGuru_at_fatcity.com (note EXACT spelling of 'ListGuru') and in the message BODY, include a line containing: UNSUB ORACLE-L (or the name of mailing list you want to be removed from). You may also send the HELP command for other information (like subscribing).Received on Tue Jan 28 2003 - 02:49:07 CST
![]() |
![]() |