1

在 Perl 中，当我尝试dir循环读取并执行for each file stat() 以获取$sizeand$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);
4

2 回答 2

7

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

换句话说，这样做：

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
         $atime,$mtime,$ctime,$blksize,$blocks) = stat("$dirname/$filename");
于 2011-04-11T08:57:01.547 回答
0

正如其他人所提到的，问题是您试图$dirname仅使用文件名（根据readdir文档）对文件进行操作。没有完整路径，stat找不到文件。

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

对其中的文件进行操作的另一种方法$dirname是将工作目录更改为有问题的目录，操作然后返回到原来的。我最喜欢的方法cd是File::chdir模块，它创建$CWD与当前工作目录相关的标量。这完全符合我在将其制作local为块并更改为您的相关目录时所描述的内容。然后您可以执行以下操作：

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恢复原状。注意：我没有针对这种情况测试此代码。我经常使用这种方法。它应该可以解决问题，而且它是可移植的！

于 2011-04-11T15:08:25.897 回答