文件创建日期采用perl中的ddmmyy格式

Question

我想知道如何以DDMMYYYY格式获取文件创建日期。 我试过这段代码，但它不符合我的观点..

$creationtime=ctime(stat($filen)->ctime);
print "File was created on $creationtime\n";

输出不是DDMMYYY格式。这也是印刷时间。我只想要日期，也只是DDMMYYYY格式。

Answer 1

ctime会返回一个纪元值。要获得备用格式，您必须将其转换。

use strict;
use warnings;

use File::stat
use Time::Piece;

my $creationtime = localtime( stat($filename)->ctime )->strftime("%d%m%Y");

Answer 2

改编自this post：

use POSIX qw (strftime);
use File::stat;

$creationtime = stat($filen)->ctime; # in Unix epoch representation

print "File was created on ", strftime ('%d%m%Y', localtime $creationtime), "\n";

或

$creationtime = strftime ('%d%m%Y', localtime stat($filen)->ctime); # in DDMMYYYY representation

print "File was created on $creationtime\n";