Oracle FAQ Your Portal to the Oracle Knowledge Grid

Home -> Community -> Mailing Lists -> Oracle-L -> Perl - Was unix time conversion function

Perl - Was unix time conversion function

From: Robert Freeman <>
Date: Mon, 27 Jan 2003 22:39:54 -0800
Message-ID: <>

unix time conversion functionCary.... 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?

  -----Original Message-----
  From: []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:


  use Date::Format qw(time2str);

  my $t = 1043447100; # for example

  print time2str("%T %A %d %B %Y", $t), "\n";

  Cary Millsap
  Hotsos Enterprises, Ltd.

  Upcoming events:

  -----Original Message-----
  From: [] 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 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:MATT.ADAMS_at_APPL.GE.COM]

    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 Adams - GE Appliances -     My computer beat me at chess, but I won     when it came to kick boxing.
Please see the official ORACLE-L FAQ:
Author: Robert Freeman

Fat City Network Services    -- 858-538-5051
San Diego, California        -- Mailing list and web hosting services
To REMOVE yourself from this mailing list, send an E-Mail message
to: (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 - 00:39:54 CST

Original text of this message