How do I find today's date?

Answer: How do I find today's date?
contributed by vroom

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]


The stupid question is the question not asked
	PerlMonks