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

Question

В Perl (в Windows) как определить последнее измененное время в каталоге?

Примечание:

opendir my($dirHandle), "$path"; 
my $modtime = (stat($dirHandle))[9]; 

приводит к следующей ошибке:

The dirfd function is unimplemented at scriptName.pl line lineNumber.

Answer 1

Очевидно, реальный ответ - это просто вызов stat на пути к каталогу (не в каталоге обрабатывать столько примеров, если бы вы верили) (по крайней мере для окон).

пример:

my $directory = "C:\\windows"; 
my @stats = stat $directory; 
my $modifiedTime = $stats[9]; 

, если вы хотите, чтобы преобразовать его в МестноеВремя вы можете сделать:

my $modifiedTime = localtime $stats[9]; 

, если вы хотите, чтобы сделать все это в одной строке вы можете сделать:

my $modifiedTime = localtime((stat("C:\\Windows"))[9]); 

С одной стороны, модуль Perl Win32 UTCFileTime имеет синтаксическую ошибку, которая предотвращает интерпретацию модуля perl/comp правильно. Это означает, что когда он включен в perl-скрипт, этот скрипт также не будет работать должным образом. Когда я сливаю весь фактический код, который что-то делает в моем скрипте и повторяю его, Perl в конечном итоге исчерпывает память, а выполнение останавливается. В любом случае есть ответ выше.

Answer 2

Используйте кнопки Win32::UTCFileTime модуль на CPAN, который отражает интерфейс built-in stat function «S:

use Win32::UTCFileTime qw(:DEFAULT $ErrStr); 
@stats = stat $file or die "stat() failed: $ErrStr\n"; 

Answer 3

my $dir_path = "path_of_your_directory"; 
my $mod_time = (stat ($dir_path))[9];