/usr/local/perl/lib/site_perl/5.8.5/Date/Lima.pm |
Date::Lima Perl extension for dates like those from conv_date()
in the Lima mudlib (2d4h1m4s).
use Date::Lima qw/beek_date/;
for $i (25, 85, 300, 6000, 7654, 10000, 7654321) { printf "\%7d seconds: \%s\n", $i, beek_date($i); }
use Date::Lima qw/:all/; use CGI qw/:html/;
my $a = new CGI;
set_pre_element_string $a->start_font({-face=>"helvetica"}); set_post_element_string $a->end_font;
for $i (25, 85, 300, 6000, 7654, 10000, 7654321) { printf "\%7d seconds: \%s\n", $i, beek_date($i); }
The single argument hereto is the text to put before each duration element.
The single argument hereto is the text to put after each duration element.
The first argument is either a number of seconds or a duration string in HH:MM:SS format. It returns the date in lima who-list fasion. It's called beek date because, AFAIK, it was written by beek.
<telnet://bakhara.org:4000>
<dorn@bakhara.org> Authored the module the documentation, and did minor re-writes to get the functions to module-like state.
<nichus@bakhara.org> Wrote all the actual code used to generate the date strings.
perl(1).
/usr/local/perl/lib/site_perl/5.8.5/Date/Lima.pm |