Perl，读取目录并获取每个文件的 stat()

Question

在 Perl 中，当我尝试在循环中读取 dir 并对每个文件执行 stat() 以获得 $size和$mode，我得到了错误的数据！

例如，我刚刚创建了简单的文本文件，它显示它的权限为 0000 并且没有大小。

Perl代码：

if (!@ARGV[0]) {
    die("Za mało parametrów!\n");
}

$dirname = @ARGV[0];

opendir(DIR, $dirname) || die("Nie mogę otworzyć katalogu!\n");
while( $filename = readdir(DIR) ) {

    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
         $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);

    $perm = sprintf("%04o", $mode & 07777);
    $tmp1 = int(($size/1024));
    $tmp2 = length($filename);

    if (($tmp1 > $tmp2) && ($perm =~ /.[^5410]../)) {
        print("$filename\n");
    }
}
closedir(DIR);

Answer 1

您需要将完整的文件路径传递给 stat() 函数。目前您只是传递一个文件名，因此脚本将在其当前目录中查找该文件。

换句话说，执行以下操作：

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
         $atime,$mtime,$ctime,$blksize,$blocks) = stat("$dirname/$filename");

Answer 2

正如其他人所提到的，问题在于您尝试仅使用文件名来操作 $dirname 中的文件（根据 readdir 文档）。如果没有完整路径，stat 无法找到该文件。

人们可以将目录连接到每个文件名，甚至可能使结果绝对（请参阅我对另一个答案的评论），但这是一个令人头疼的问题。

对$dirname中的文件进行操作的另一种方法是将工作目录更改为有问题的目录，操作后返回到原来的目录。我最喜欢的 cd 方式是 File::chdir 模块，它创建与当前工作目录绑定的标量 $CWD。当它被本地化到一个块并更改为您的相关目录时，这正是我所描述的。然后你可以做类似的事情：

use strict;
use warnings;

use File::chdir;

$dirname = shift @ARGV or die("Za mało parametrów!\n") ;

{
    local $CWD = $dirname; #changes the cwd to contents of $dirname

    opendir(my $dir, $CWD) || die("Nie mogę otworzyć katalogu!\n");
    while( $filename = readdir($dir) ) {

        ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
             $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);

        $perm = sprintf("%04o", $mode & 07777);
        $tmp1 = int(($size/1024));
        $tmp2 = length($filename);

        if (($tmp1 > $tmp2) && ($perm =~ /.[^5410]../)) {
            print("$filename\n");
        }
    }

}

在块之后，原始的cwd被恢复。注意：我还没有针对这种情况测试此代码。我经常使用这个方法。它应该可以解决这个问题，而且它是便携式的！