Как получить время последнего изменения файла в Perl?

Используйте встроенную функцию stat. Или более конкретно:

my $modtime = (stat($fh))[9]

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 owner
  5 gid      Numeric group ID of file 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

Эпоха была в 00:00 1 января 1970 года по Гринвичу.

Дополнительная информация находится в stat.

Вам нужен вызов stat и имя файла:

my $last_mod_time = (stat ($file))[9];

Perl также имеет другую версию:

my $last_mod_time = -M $file;

но это значение относится к началу работы программы. Это полезно для таких вещей, как сортировка, но вам, вероятно, нужна первая версия.

Если вы просто сравниваете два файла, чтобы узнать, что является более новым, тогда -C должен работать:

if (-C "file1.txt" > -C "file2.txt") {
{
    /* Update */
}

Там также -M, но я не думаю, что вы этого хотите. К счастью, практически невозможно найти документацию по этим файловым операциям через Google.

Вы можете использовать stat() или модуль File:: Stat.

perldoc -f stat

Я думаю, что вы ищете функцию stat (perldoc -f stat)

В частности, 9-е поле (10-й, индекс № 9) возвращенного списка является последним временем изменения файла за считанные секунды с эпохи.

Итак:

my $last_modified = (stat ($ fh)) [9];

В моей FreeBSD система stat просто возвращает благословение.

$VAR1 = bless( [
                 102,
                 8,
                 33188,
                 1,
                 0,
                 0,
                 661,
                 276,
                 1372816636,
                 1372755222,
                 1372755233,
                 32768,
                 8
               ], 'File::stat' );

Вам нужно извлечь mtime следующим образом:

my @ABC = (stat($my_file));

print "-----------$ABC['File::stat'][9] ------------------------\n";

или

print "-----------$ABC[0][9] ------------------------\n";

Это очень старая тема, но я попытался использовать решение и не смог получить информацию из File :: stat. (Perl 5.10.1)

Я должен был сделать следующее:

my $f_stats = stat($fh);
my $timestamp_mod = localtime($f_stats->mtime);
print "MOD_TIME = $timestamp_mod \n";

Просто подумала, что поделюсь на тот случай, если у кого-то возникнут другие проблемы.