Какова семантика слова «stat» в дескрипторе в Perl?
Вопрос
Изучая другой вопрос, я заметил, что stat
Функция в Perl может принимать в качестве аргумента дескриптор каталога (вместо дескриптора или имени файла).
Однако я не могу найти примеров правильного использования этого — в руководстве по Perl их нет.
Может ли кто-нибудь показать пример того, как его использовать?
Решение
Вы используете его так же, как для файла или дескриптора файла:
#!/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
для файлового дескриптора:
<~> $ mkdir -v foo ; perl -e 'opendir($dh , "./foo"); @s = stat $dh; print "@s"'
mkdir: created directory `foo'
2049 11681802 16877 2 1001 1001 0 4096 1228059876 1228059876 1228059876 4096 8
(Лично мне нравится использовать File :: stat
, чтобы получить красивые именованные средства доступа, чтобы мне не приходилось запоминать (или искать), что пятым элементом является UID ...) р>
Просто имейте в виду, что если дескриптор когда-либо использовался в качестве дескриптора файла, а также дескриптора, статистика будет применяться к файлу, а не к каталогу:
$ perl -wl
opendir $h, "." or die;
open $h, "/etc/services" or die;
print "dir:".readdir($h);
print "file:".readline($h);
print stat("/etc/services");
print stat(".");
print stat($h);
close($h);
print stat($h);
__END__
dir:.
file:# Network services, Internet style
205527886633188100018274122800783211967194861209994037409640
20551515522168777410001000020480122803711512280371021228037102409640
205527886633188100018274122800783211967194861209994037409640
stat() on closed filehandle $h at - line 1.
(Are you trying to call stat() on dirhandle $h?)
Я использую Perl 5.10.1 для Windows (ActivePerl), и выполнение stat на dirhandle не работает. Но выполнение статистики в строке пути каталога работает.
работы
my $mtime = (stat( $directory ))[ 9 ];
print "D $directory $mtime\n";
это не так (" функция dirfd не реализована ... ")
my $dh;
if( opendir( $dh, $directory ) == 0 ) {
print "ERROR: can't open directory '$directory': $!\n";
return;
}
$mtime = (stat( $dh ))[ 9 ];
print "D $directory $mtime\n";