Perl - Was unix time conversion function

[Robert Freeman]

Title: unix time conversion function

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----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Cary Millsap Sent: Friday, January 24, 2003 4:29 PM To: Multiple recipients of list ORACLE-L Subject: RE: unix time conversion function 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 on Oracle® System Performance, Feb 9–12 Dallas - RMOUG Training Days 2003, Mar 5–6 Denver - Hotsos Clinic 101, Mar 26–28 London -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Post, Ethan Sent: Friday, January 24, 2003 3:30 PM To: Multiple recipients of list ORACLE-L Subject: RE: unix time conversion function   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----- From: Adams, Matthew (GECP, MABG, 088130) [mailto:[EMAIL PROTECTED]] Sent: Friday, January 24, 2003 1:14 PM To: Multiple recipients of list ORACLE-L Subject: unix time conversion function 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 ---- Matt Adams - GE Appliances - [EMAIL PROTECTED] My computer beat me at chess, but I won when it came to kick boxing.