perl date and time

Posts: 5 · Posted: Thu Oct 27, 2005 2:07 pm

I just want to know how to output the date and time in perl in following format
03:58 10/27/2005

Also if I wish to increment the time by 2 hours

could anyone please help

thanks

m

Posts: 271 · Posted: Thu Oct 27, 2005 2:47 pm

Did you look on CPAN? They have a nice module for formatting dates and times:

http://search.cpan.org/~rse/lcwa-1.0.0/lib/timedate/Date/Format.pm

You might also find this site useful:

http://datetime.perl.org/faq.html

Posts: 5 · Posted: Sat Oct 29, 2005 3:54 pm

Thanks, but I my webhost seems not to recognize the libraries

In summary my webserver supports the following modules
http://j2se.co.uk/server_info/servercheck.pl?compile&7

so any advice or simple script using available modules ??

Thanks in advance

Posts: 271 · Posted: Sat Oct 29, 2005 4:39 pm

Date format is in that list

Posts: 5 · Posted: Sat Oct 29, 2005 5:00 pm

My script is as bellow
#!/usr/bin/perl

use Mysql;
use CGI qw(:standard);
my @row;
use Date::Format;

print "content-type: text/html\n\n";
print "<HTML><HEAD><TITLE></TITLE></HEAD>";
print "<BODY>";
@lt = timelocal(time);
print time2str($template, time);
print strftime($template, @lt);

print time2str($template, time, $zone);
print strftime($template, @lt, $zone);

print ctime(time);
print ascctime(@lt);

print ctime(time, $zone);
print asctime(@lt, $zone);

print "</BODY></HTML>\n";

exit;

But this does not have any output
can you please put me in the correct direction

Posts: 5 · Posted: Sat Oct 29, 2005 5:40 pm

I deleted @lt = timelocal(time); and it gave me the date output#Thanks

Posts: 5 · Posted: Sat Oct 29, 2005 6:12 pm

Stuck again

can you help?
Just want to format the date in the following order
03:58 10/27/2005

Posts: 1 · Posted: Sun Jun 04, 2006 7:31 pm

There are, of course, many ways to do this. This is one that works, feel free to improve on it.
Hope it helps.

#!/usr/bin/perl

use HTTP::Date;
my ($date, $time) = split(" ", HTTP::Date::time2iso());
my ($hour, $min) = split(":", $time);
print "$hour:$min $date\n\n";
exit;

Posts: 22 · Posted: Wed Jun 21, 2006 6:09 pm

Love it or hate it:

Code:

my $datestring = prettydate();
print $datestring;

# usage: $string = prettydate( [$time_t] );
# omit parameter for current time/date
sub prettydate {
@_ = localtime(shift || time);
return(sprintf("%02d:%02d %02d/%02d/%04d", @_[2,1], $_[4]+1, $_[3], $_[5]+1900));
}