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

in reply to How to get the current Date and Time using Perl on windows?

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
[download]

Punitha

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

Replies are listed 'Best First'.
Re^2: How to get the current Date and Time using Perl on windows? by johngg (Canon) on Jan 02, 2008 at 11:29 UTC
`print "Time:\t".sprintf("%02d",$hour).":".sprintf("%02d",$min).":".spr +intf("%02d",$sec)."\n";` [download] 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;` [download] I hope this is of interest. Cheers, JohnGG	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom