Cheers

ronniec — Sat, 10 Mar 2001 21:00:34 +0000

Thanks to you both for the help.

Time Formatting

japhy — Sat, 10 Mar 2001 14:26:37 +0000

You can get the arguments of localtime() or gmtime() in a list (as the documentation states) and play with them as you need.

my ($min,$hour,$day,$mon,$year) = (localtime)[1..5];
 
my $datestr = sprintf "%02d/%02d/%02d, %02d:%02d", $day, $mon+1, $year % 100, $hour, $min;

You can also use the POSIX strftime function:

use POSIX 'strftime';
my $datestr = strftime('%d/%m/%y, %R', localtime);

Perl should be doing it for your specific time zone when you use localtime().

Mark Hensler — Fri, 09 Mar 2001 22:39:59 +0000

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
$year = substr($year,1);   #make $year two digit
$the_date = "$mon/$mday/$year, $hour:$min";

'
interesting links:
http://www.perl.com/pub/doc/manual/html/pod/perlfunc/gmtime.html