Re: How to get the current Date and Time using Perl on windows?

[Punitha]

Hi

You can use the time function in perl as

my ($sec,$min,$hour,$day,$month,$yr19,@rest) =   localtime(time);#####
+##To get the localtime of your system
print "Date:\t$day-".++$month. "-".($yr19+1900)."\n"; ####To print dat
+e format as expected
print "Time:\t".sprintf("%02d",$hour).":".sprintf("%02d",$min).":".spr
+intf("%02d",$sec)."\n";###To print the current time

Punitha

[johngg]

print "Time:\t".sprintf("%02d",$hour).":".sprintf("%02d",$min).":".spr
+intf("%02d",$sec)."\n";

Perhaps you could use printf rather than print and sprintf and avoid concatenation to make that easier to read.

printf qq{Time:\t%02d:%02d:%02d\n}, $hour, $min, $sec;

I hope this is of interest.

Cheers,

JohnGG