Convert Unix timestamp to a readable date in Perl

Question

I have some Unix timestamps (for example, 1357810480, so they're mainly in the past). How can I transform them into a readable date-format using Perl?

Answer 1

Quick shell one-liner:

perl -le 'print scalar localtime 1357810480;'
Thu Jan 10 10:34:40 2013

Or, if you happen to have the timestamps in a file, one per line:

perl -lne 'print scalar localtime $_;' <timestamps

Answer 2

You could use

my ($S, $M, $H, $d, $m, $Y) = localtime($time);
$m += 1;
$Y += 1900;
my $dt = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $Y, $m, $d, $H, $M, $S);

But it's a bit simpler with strftime:

use POSIX qw( strftime );
my $dt = strftime("%Y-%m-%d %H:%M:%S", localtime($time));

localtime($time) can be substituted with gmtime($time) if it's more appropriate.