Re: Using Time::Localtime module

2001-12-04 Thread John W. Krahn
Joe Slaven wrote: > > Has anyone an example of using Time::Localtime module to print out the date > and time to the nearest second in the format: > : > sec:min:hour (am/pm) Thurs 2nd Dec 2001 It might be easier to use POSIX::strftime() $ perl -le'use POSIX "strftime"; print strftime "%S:%M:%

Re: Using Time::Localtime module

2001-12-04 Thread A. Rivera
Rearrange the output as you need.. use Time::Local; $time=&todaysdate; print $time; sub todaysdate { my %moname= (0,"January", 1,"February", 2,"March", 3,"April", 4,"May", 5,"June", 6,"July", 7,"August"