Answer: How do I find today's date? contributed by vroom use localtime or Time::localtime my($day, $month, $year)=(localtime)[3,4,5]; print "$day-".($month+1)."-".($year+1900)."\n"; # or use Time::localtime; $tm=localtime; my ($day,$month,$year)=($tm->mday,$tm->month,$tm->year); [download] Edited to fix precedence errors in localtime() version as noted by 3dbc

Answer: How do I find today's date? contributed by ducky If you just need a timestamp string, ala "Wed Mar 22 10:56:43 PST 2000" you can just: print scalar localtime() ; -Ducky

Answer: How do I find today's date? contributed by Zombie Melkurion Here's a complete little program: use Time::localtime; $tm = localtime; printf("The current date is %04d-%02d-%02d\n", $tm->year+1900, ($tm->mon)+1, $tm->mday); printf("The current time is %02d:%02d:%02d\n", $tm->hour, $tm->min, $t +m->sec); [download]

Answer: How do I find today's date? contributed by autarch use DateTime; my $dt = DateTime->today; print $dt->date; [download]

Answer: How do I find today's date? contributed by Agyeya You could also use Date::Manip $date = ParseDate("today"); print "Today's Date is $date.\n"; [download]

Answer: How do I find today's date? contributed by sacked You can also use POSIX::strftime: use POSIX qw(strftime); print "today's date is ", strftime( '%b %e, %Y', localtime ); [download]

Answer: How do I find today's date? contributed by DeadPoet Example 1: sub timestamp { return localtime (time); } print '[' . timestamp() . ']: Normal Time Format'. "\n"; [download] Output 1: [Sat Jan 8 11:59:07 2011]: Normal Time Format [download] Example 2: use Time::localtime; sub timestamp { my $t = localtime; return sprintf( "%04d-%02d-%02d_%02d:%02d:%02d", $t->year + 1900, $t->mon + 1, $t->mday, $t->hour, $t->min, $t->sec ); } print '[' . timestamp() . ']: Custom Time Format'. "\n"; [download] Output 2: [2011-01-08_12:06:05]: Custom Time Format [download]

Please (register and) log in if you wish to add an answer