Oracle-L: Perl - Was unix time conversion function

From: Robert Freeman <robertgfreeman_at_yahoo.com>
Date: Mon, 27 Jan 2003 22:39:54 -0800
Message-ID: <F001.0053BC1C.20030127223954@fatcity.com>

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?

RF
-----Original Message-----
From: root_at_fatcity.com [mailto:root_at_fatcity.com]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 OracleR System Performance, Feb 9-12 Dallas
RMOUG Training Days 2003, Mar 5-6 Denver
Hotsos Clinic 101, Mar 26-28 London

-----Original Message-----
From: root_at_fatcity.com [mailto:root_at_fatcity.com] 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: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

Matt Adams - GE Appliances - matt.adams_at_appl.ge.com My computer beat me at chess, but I won when it came to kick boxing.

-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.net
-- 
Author: Robert Freeman
  INET: robertgfreeman_at_yahoo.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 - 00:39:54 CST