Tivoli::DateTime - Perl Extension for Tivoli
use Tivoli::DateTime;
v0.03
Copyright (c) 2001 Robert Hase.
All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
This Package will handle about everything you may need for displaying the date / time.
If anything has been left out, please contact me at
kmeltz@cris.com , tivoli.rhase@muc-net.de
so it can be added.
d = dot, s = slash, m = minus
Description of Routines
Returns YYYYMMDD
$Var = &YYYYMMDD;
$Var = &YYYYMMDD;
$Var = 20010804
Returns YYYYMMDDHHMMSS
$Var = &YYYYMMDDHHMMSS;
$Var = &YYYYMMDDHHMMSS;
$Var = 20010804134527
Returns HHdMMdSS
$Var = &HHdMMdSS;
$Var = &HHdMMdSS;
$Var = 13.45.27
Returns YYYYmMMmDD
$Var = &YYYYmMMmDD;
$Var = &YYYYmMMmDD;
$Var = 2001-08-04
Returns DDdMMdYYYY
$Var = &DDdMMdYYYY;
$Var = &DDdMMdYYYY;
$Var = 04.08.2001
Returns DDmMMmYYYY
$Var = &DDmMMmYYYY;
$Var = &DDmMMmYYYY;
$Var = 04-08-2001
Returns EpocheSS since 1970-01-01 00:00.00
$Var = &EpocheSS;
$Var = &EpocheSS;
$Var = 78762323109843
Converts the given Epoche-Seconds to DdMdYYYY
$Var = &EpocheSS2DdMdYYYY(78762323109843);
$Var = &EpocheSS2DdMdYYYY(78762323109843);
$Var = 04.08.2001
Converts the given Epoche-Seconds to DdMdYYYYsHdMdS
$Var = &EpocheSS2DdMdYYYYsHdMdS(78762323109843);
$Var = &EpocheSS2DdMdYYYYsHdMdS(78762323109843);
$Var = 04.08.2001/13.45.27
Splits the given Dot-Date 04.08.2001 to 04 08 2001
$Var = &date_split_dot("04.08.2001");
@Arr = &date_split_dot("04.08.2001");
@Arr = qw(04 08 2001);
Splits the given Date 04-08-2001 to 04 08 2001
$Var = &date_split_minus("04-08-2001");
@Arr = &date_split_minus("04-08-2001");
@Arr = qw(04 08 2001);
Returns MM/DD/YYYY
$Var = &slash_date;
$Var = &slash_date;
$Var = 04/08/2001;
Returns long DateTime
$Var = &longDateTime;
$Var = &longDateTime;
$Var = Saturday, 08 04, 2001 at 13:45:27
Returns long Date
$Var = &longDate;
$Var = &longDate;
$Var = Saturday, 08 04, 2001
Returns abbreviation of Month
$Var = &abr_mon;
$Var = &abr_mon;
$Var = Aug
Returns abbreviation of Day
$Var = &abr_day;
$Var = &abr_day;
$Var = Sat
Returns Nr of Month
$Var = &month;
$Var = &month;
$Var = 08
Returns Nr of Day
$Var = &day;
$Var = &day;
$Var = 6
Returns Nr of Month
$Var = &month_num;
$Var = &month_num;
$Var = 8
Returns Nr of Day
$Var = &day_num;
$Var = &day_num;
$Var = 6
Returns Year
$Var = &year;
$Var = &year;
$Var = 2001
Returns days left in year
$Var = &days_left;
$Var = &days_left;
$Var = 236
Supported Plattforms and Requirements
tested on:
- w32-ix86 (Win9x, NT4, Windows 2000)
- aix4-r1 (AIX 4.3)
- Linux (Kernel 2.2.x)
requires Perl v5 or higher
VERSION DATE AUTHOR WORK
----------------------------------------------------
0.01 1999 kmeltz created
0.02 2000-08 RHase several Date / Time Formats
0.03 2001-08-04 RHase POD-Doku added
kmeltz, Robert Hase
ID : KMELTZ, RHASE
eMail : kmeltz@cris.com, Tivoli.RHase@Muc-Net.de
Web : http://www.Muc-Net.de
CPAN
http://www.perl.com