File::statパッケージを見てください。これにより、内部の Perl statコマンドが名前によるインターフェイスに置き換えられます。stat
ただし、組み込みコマンドまたはFile::stat
パッケージのいずれかを使用できます。
use File::stat;
use feature qw(say);
my $file_stat = stat($file_name);
say "The following times are displayed as seconds since January 1, 1970"
say " File Last Access time: " . $file_stat->atime;
say " File Last Modification time: " . $file_stat->mtime;
say " File inode Change Time: " . $file_stat->ctime;
これらのいずれかがそれを行う必要があります。あなたの最善の策はmtime
.
使用したくない場合はFile::Stat
、組み込みstat
コマンドを使用します。
say "The following times are displayed as seconds since January 1, 1970"
say " File Last Access time: " . (stat $my_file)[8]
say " File Last Modification time: " . (stat $my_file)[9];
say " File inode Change Time: " . (stat $my_file)[10];
時間を人間が読める形式に変換するには、Time::Pieceモジュールを使用します。