Re: Perl - Was unix time conversion function

  The only problem I had was differentiating between the actual code and the encrypted version of the same ;) But we will get there eventually.

Denny

Quoting Robert Freeman <robertgfreeman_at_yahoo.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

-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.net
-- 
Author: Denny Koovakattu
  INET: groups_at_koovakattu.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).