Format date in Perl - MM/DD/YYYY?

Question

Format date in Perl - MM/DD/YYYY?

Answer 1

Perl Date

Answer 2

This Site Might Help You.



RE:

Format date in Perl - MM/DD/YYYY?

I just want to grab the current date in Perl in the format MM/DD/YYYY, how can I do this in Perl?

Answer 3

use Date::Manip;

my $s = &UnixDate('now', '%m/%d/%Y');

print "$s\n";

Answer 4

The method without any external modules:



my $mmddyyyy = sprintf "%02d/%02d/%d",

(localtime)[4] + 1, # months

(localtime)[3], # days

(localtime)[5] + 1900; # years





The more maintainable way:



use POSIX qw( strftime );

my $mmddyyyy = strftime("%m/%d/%Y", localtime);





The POSIX module comes with the standard distribution of Perl, so should never need installing separately. As a result it is very fast and extremely portable.





Best wishes,

Dave Cardwell.

http://davecardwell.co.uk/perl/