Question

我正在使用Perl的模块File :: Find遍历目录。此目录是NFS共享，其目录为.snapshot。在这个文件夹中有一个昨天文件结构的快照，因此它在结果中有相同名称的目录。因此，我收到以下错误：

[folder_in_which_find_is_executed].snapshot/sv_daily.0 encountered a second time at /usr/lib/perl5/5.8.8/File/Find.pm line 566.

有没有办法防止这种情况发生，例如删除重复的条目？

这是执行查找的代码子：

sub process()
{
        my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
            $atime, $mtime, $ctime, $blksize, $blocks) = stat $_;
        my $type = (-f _ ? 'f' : (-d _ ? 'd' : '*'));
        my ($md5sum);

        if (!defined $dev)
        {
                if (-l $_)
                {
                        die "Broken symbolic link: $File::Find::name";
                } else {
                        die "Error processing $type '$File::Find::name'";
                }
        }

        my $name = $File::Find::name;
        $name =~ s|^\.\/?||;

        if ($name ne '')
        {
                $db->{$name} = {
                        name => $name,
                        mode => sprintf("%04o", $mode & 07777),
                        user_id => $uid,
                        group_id => $gid,
                        last_modified => $mtime,
                        type => $type
                };

                if ($type eq 'f')
                {
                        $db->{$name}->{size} = $size;
                        $db->{$name}->{inode} = $ino;
                        $md5sum = SumForEntry($name, $_);
                        $db->{$name}->{md5sum} = $md5sum;
                }
        }
}

以下行执行此子目录：

find({ wanted => \&process, follow => 1}, '.');

有人可以帮帮我吗？

Answer 1

'通缉'功能可以告诉File::Find修剪其搜索：

除非指定了depth，否则该函数可以设置$ File :: Find :: prune来修剪树。

在进入快照目录时，设置修剪变量以防止进一步处理它。

Perl文件::查找重复的名称

1 个答案: