在Perl中的dirhandle上,'stat'的语义是什么？

Question

在研究另一个问题时,我注意到statPerl 中的函数可以将dirhandle作为其参数(而不是文件句柄或文件名).

但是我找不到任何正确使用它的例子 - Perl手册中没有.

任何人都可以展示如何使用它的例子吗？

Answer 1

您以与文件或文件句柄相同的方式使用它:

#!/usr/bin/perl
use strict;

my $dir = shift;
opendir(DIR, $dir) or die "Failed to open $dir: $!\n";
my @stats = stat DIR;
closedir(DIR);
my $atime = scalar localtime $stats[8];

print "Last access time on $dir: $atime\n";

在Perl 5.10上添加了在目录句柄上使用stat的能力,因此如果你关心可移植性应该避免使用它.