Date format in perl

[MES]

I want a quick way to convert a unix date to a date in the following format:

YYYY_MM_DD_HH_MM_SS:

I currently have $date = time

Is there an easy way to convert time to the above format?

Thanks!

 

[Mark Clements]

I want a quick way to convert a unix date to a date in the following format:

YYYY_MM_DD_HH_MM_SS:

I currently have $date = time

Is there an easy way to convert time to the above format?

check out Date::Format, but next time you may want to check out
http://search.cpan.org before posting.

Mark

 

[Brian McCauley]

I want a quick way to convert a unix date

What do you mean by a Unix date? I shall assume you mean Unix epoch
seconds.

to a date in the following format:
YYYY_MM_DD_HH_MM_SS:

perldoc -f localtime

 

[Tad McClellan]

I want a quick way to convert a unix date to a date in the following format:

YYYY_MM_DD_HH_MM_SS:

I currently have $date = time

Is there an easy way to convert time to the above format?

my $time = time;
my @parts = (localtime $time)[0..5];
$parts[5] += 1900;
$parts[4]++;
my $date = sprintf '%4d_%02d_%02d_%02d_%02d_%02d', reverse @parts;

print "$date\n";

 

[Glenn Jackman]

I want a quick way to convert a unix date to a date in the following format:

YYYY_MM_DD_HH_MM_SS:

I currently have $date = time

Is there an easy way to convert time to the above format?

use POSIX qw(strftime);
$date = strftime "%Y_%m_%d_%H_%M_%S:", localtime;