perl中的ddmmyy格式的文件創建日期

Question

我想知道如何以DDMMYYYY格式獲取文件創建日期。 我曾嘗試這個代碼，但它不符合我的epxectations ..

$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";