problem fromating fields

[veteq]

I am not sure where to start on this one

I wrote a PM file that looks after logging of all activity taking place with the main application.

code
---------------------------------------------------------
$finalTime= (localtime(time))[2] . ":" . (localtime(time))[1] . ":" . (localtime(time))[0];
$finalDate = (localtime(time))[3] . "-" .
$getmonth{(localtime(time))[4]} .
"-" .( (localtime(time))[5]+1900) ;
-----------------------------------------------------------
the problem that I am running into is with dropped 0s. If the time or date have a leading 0 in it, the variable drops it.

e.g.

10:07:05 becomes 10:7:5

How can I resolve this.....?

thank you

 

[Rieekan]

Try this:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$year += 1900;
$mon += 1;

my $finalTime =  (sprintf "%02d:%02d:%02d", $hour, $min, $sec);
my $finalDate = (sprintf "%02d/%02d/%04d", $mon, $mday, $year);

- Rieekan

 

[veteq]

it worked, thank you.