Неожиданный выход из скрипта PERL

Question

Следующий скрипт не производит никакого вывода:

use File::stat; 
use Time::localtime; 
my $filename = 'c:\testfile'; 
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, 
       $atime,$mtime,$ctime,$blksize,$blocks) 
        = stat($filename); 
print("$mtime"); 

c:\testfile существует.

Я видел несколько ответов на SO - this, for example - которые, похоже, предполагают, что массив, возвращаемый stat(), должен иметь что-то значимое в нем, но я не видел, чтобы это было на практике.

Это 64 бит ActiveState Perl на Windows, 7.

ли Stat не делать то, что ответы на эти вопросы, казалось, означают, или же дату файла в Perl/временные функции не работают под Windows (или 64 битной Windows, или некоторые такие ?)

Answer 1

Это прекрасно работает:

#!perl 

use strict; 
use warnings; 

my $filename = 'c:\Users\username\Documents\asdf23rasdf.pl'; 
my ($dev, $ino, $mode, $nlink, $uid,  $gid, $rdev, 
    $size, $atime, $mtime, $ctime, $blksize, $blocks 
) = stat($filename); 
print($mtime); 

Как упоминалось в комментариях - Perl встроенный в стат работает как выше. Для этого вам не нужно использовать File::Stat или File::stat. Они просто предоставляют разные интерфейсы для одной и той же функциональности.

Если вы хотите сделать это с File::stat это выглядит следующим образом:

use File::stat; 

my $filename = 'c:\Users\username\Documents\asdf23rasdf.pl'; 
my $stats = stat($filename); 
print($stats -> mtime); 

Answer 2

Файл :: stat заменяет stat тем, у кого другой интерфейс. Удалите use File::stat; или используйте его stat соответствующим образом.