Perl Date formatting

[adni18]

I have a script.

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
print "$mon/$mday/$year";

but that code always gives me 9/8/104. How can I format it so it is MM/DD/YY? I really need an answer fast. Thanks in advance

[Brett_Tabke]

year is an offset from 1900.

add:

$year=$year+1900;

[adni18]

what about the 9? shouldn't it be 10 because of october?

[Brett_Tabke]

remember - programmers start from 0.

[cgikira]

I'd really suggest installing Date::Format (from CPAN) if you don't already have it. It really saves a lot of time when formatting dates:

#!/usr/bin/perl
use Date::Format;

print time2str("%D", time), "\n";
# (prints 10/09/04)

print time2str("%m/%d/%Y", time), "\n";
# (prints 10/09/2004)

[g1smd]

Hmmm, a date like 9/8/04 will be read as 9th Aug in some places and as Sept 8th in others.

Look up ISO 8601 and RFC 3339 for the International Format, which is always YYYY-MM-DD.