Date::Ordinal - Conversion of dates to ordinal numbers and vice versa
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
@arry = all_month_names
$arryref = all_month_names_ref
$arryref = all_short_month_names_ref
$arryref = all_day_ordinations
$arryref = all_hour_ordinations
$arryref = all_minute_ordinations
$hashref = ordination_month_pair # {'01' => 'January', ... }
@day = days
This module is designed to aid in creation of CGI popup_menus and also interaction with SQL databases.
There are two conversion routines: ord2month() and month2ord().
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.
The match is a regexp match, so both 'Mar' and 'March' will return 3.
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 "KNOWN BUGS AND LIMITATIONS" below.
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;
all_short_month_names_ref()Returns a reference to a list of all month names in 3-letter form
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
prezero()if the current number is single-diit, prefix it with a '0'
none
Terrence Brannon <tbrannon@end70.com>
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.
