获取perl中的整个dirent结构

Question

linux返回一个dirent结构，其中包含文件名以外的更多信息，但是readdir的readdir似乎只返回文件名(我尝试将其赋给一个变量，并在该变量上使用Data::Dumper::dumper，以查看它是否只是文件名的字符串形式-我不知道这是不是一种有用的方法，但这是我能想到的最好的方法)。有没有办法获得其他信息(特别是我需要d_type)，而不需要stat'ing这个名字？

Answer 1

您可以使用IO::Dirent

use strict;
use warnings 'all';
use 5.010;

use IO::Dirent qw(:ALL); # import constants DT_REG, DT_LNK, etc.

my %types = (
    DT_REG() => 'regular file',
    DT_LNK() => 'symbolic link',
    DT_DIR() => 'directory'
);

my $dir = 'foo';
opendir my $dh, $dir or die "Failed to opendir '$dir': $!";

while (my $entry = nextdirent($dh)) {
    say join "\t", $entry->{name}, $types{ $entry->{type} };
}

输出：

..      directory
baz     symbolic link
.       directory
bar     regular file