NAME
Date::Ordinal - Conversion of dates to ordinal numbers and vice
versa
SYNOPSIS
use Date::Ordinal;
$ord = month2ord('January'); # $ord gets 1
$mon = ord2month('1'); # $mon gets 'January'
$mon = ord2month(1); # $mon gets 'January'
$mon = ord2month('01'); # $mon gets 'January'
$arryref = all_month_ordinations
$arryref = all_day_ordinations
$hashref = ordination_month_pair # {'January' => 01, ... }
@day = days
=cut
#---------------------------------------------------------------
--------
package Date::Ordinal; #use strict;
#---------------------------------------------------------------
--------
DESCRIPTION
This module is designed to aid in creation of CGI popup_menus
and also interaction with SQL databases.
CONVERSION ROUTINES
There are two conversion routines: `ord2month()' and
`month2ord()'.
ord2month()
This function takes a month number [1..12] and returns a
string which contains the name of the month identified.
If the number is not a valid number, then `undef' will
be returned:
$mon = ord2month('3');
month2ord()
This function takes a month name and returns the integer
corresponding to the month name, if such exists. If the
argument could not be identified as a month name, then
`undef' will be returned:
$ord = month2ord('March');
The case of the month name is not important. See the
section the section on "KNOWN BUGS AND LIMITATIONS"
below.
QUERY ROUTINES
There is one function (and a reference variant) which can be
used to obtain a list of all month names:
`all_month_names()'
Returns a list of all month names;
`all_month_names_ref()'
Returns a reference to a list of all month names;
`ordination_month_pair()'
returns a reference to a hash of the ordination of a month name
and the month name
`all_month_ordinations()'
returns a reference a hash of the ordination of a month name
and the month name
PRETTY-PRINTING ROUTINES
`prezero()'
if the current number is single-diit, prefix it with a '0'
KNOWN BUGS AND LIMITATIONS
none
SEE ALSO
Locale::US
Date::Manip
AUTHOR
Terrence Brannon <tbrannon@end70.com>
COPYRIGHT
Copyright (c) 2000 End70 Corporation
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.