my @array = stat($filehandle);
время изменения хранится в формате Unix в $array [9].
Или явно:
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($filepath); 0 dev Device number of filesystem 1 ino inode number 2 mode File mode (type and permissions) 3 nlink Number of (hard) links to the file 4 uid Numeric user ID of file's owner 5 gid Numeric group ID of file's owner 6 rdev The device identifier (special files only) 7 size Total size of file, in bytes 8 atime Last access time in seconds since the epoch 9 mtime Last modify time in seconds since the epoch 10 ctime inode change time in seconds since the epoch 11 blksize Preferred block size for file system I/O 12 blocks Actual number of blocks allocated
эпоха была в 0:00 1 января 1970 GMT
[еще 117], информация находится в статистика .
Для Наездника JetBrains:
Первая Опция
опция Second:
That's it!