将Unix时间戳转换为Perl中的可读日期

Question

我有一些Unix时间戳(例如,1357810480,所以它们主要在过去).如何使用Perl将它们转换为可读的日期格式？

Answer 1

快速外壳单线:

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

或者,如果您碰巧在文件中有时间戳,则每行一个:

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

Answer 2

完美地用于Time :: Piece(从5.10开始的Perl标准).

use 5.010;
use Time::Piece;

my $unix_timestamp = 1e9; # for example;

my $date = localtime($unix_timestamp)->strftime('%F %T'); # adjust format to taste

say $date; # 2001-09-09 02:46:40

Answer 3

你可以用localtime它.

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($unix_timestamp);

Answer 4

你可以用

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);

但它有点简单strftime:

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

localtime($time)gmtime($time)如果它更合适,可以用它代替.

Answer 5

或者,如果您有一个包含嵌入时间戳的文件,您可以使用以下内容将它们转换为:

$ cat [file] | perl -pe 's/([\d]{10})/localtime $1/eg;'