Simple Date Question???

[daveniemann]

New Perl devleoper here!!

Im trying to extract, given the current date, the day of the month....Ie... If the date is June 12th, 2003---I'd like to return just the 12 in a variable.

Thanks in advance!

 

[duncdude]

($seconds, $minutes, $hour, $dayOfMonth, $month, $year, $dayOfWeek, $dayOfYear) = localtime(time);

[red]print "current dayOfMonth is: $dayOfMonth\n";[/red]

$month ++;
print "current month is: $month\n";

$year += 1900;
print "current year is: $year\n";

Duncan

 

[ronan40060]

hello duncan
what about the perl date module
what I did not understand in your answer is

($seconds, $minutes, $hour, $dayOfMonth, $month, $year, $dayOfWeek, $dayOfYear) = localtime(time);

print "current dayOfMonth is: $dayOfMonth\n";

$month ++;
print "current month is: $month\n";

$year += 1900;
print "current year is: $year\n";

-----------------------------------------------------------
If we want to display the current date
i.e in 28/04/04 format then

 

[PaulTEG]

($seconds, $minutes, $hour, $dayOfMonth, $month, $year, $dayOfWeek, $dayOfYear) = localtime(time);
$month++;
print "$dayOfMonth/$month/$year";

HTH
--Paul