perl - 如何在 Perl 中检测不区分大小写的文件系统？

Question

我尝试使用 File::Spec->case_tolerant ，但它在 HFS+ 上返回 false，这是错误的。我怀疑是因为 File::Spec::Unix总是返回 false。我目前的解决方法是这个函数:

my $IS_CASE_INSENSITIVE;
sub _is_case_insensitive {
    unless (defined $IS_CASE_INSENSITIVE) {
        $IS_CASE_INSENSITIVE = 0;
        my ($uc) = glob uc __FILE__;
        if ($uc) {
            my ($lc) = glob lc __FILE__;
            $IS_CASE_INSENSITIVE = 1 if $lc;
        }
    }
    return $IS_CASE_INSENSITIVE;
}

但这是一个 hack，因为:1) 在区分大小写的文件系统上，这两个文件都可能存在； 2) 不同的卷可以有不同的文件系统。

Answer 1

事实上，每个考虑的目录都必须单独检查。这是因为，在类 Unix 系统上，任何 目录可以是与其他目录不同的文件系统。此外，glob 的使用不是很可靠；来自 perlport :

Don't count on filename globbing. Use opendir, readdir, and closedir instead.

但我认为@borodin通过使用 -e 来实现。所以这里有一个函数，它使用 -e 来确定指定的目录是否在不区分大小写的文件系统上:

my %IS_CASE_INSENSITIVE;
sub is_case_insensitive {
    my $dir = shift;
    unless (defined $IS_CASE_INSENSITIVE{$dir}) {
        $IS_CASE_INSENSITIVE{$dir} = -e uc $dir && -e lc $dir;
    }
    return $IS_CASE_INSENSITIVE{$dir};
}

您可能会为 Windows 添加一些启发式方法来仅缓存驱动器号的值，因为它定义了一个挂载点。当然，如果目录的大写和小写变体都存在，它将在区分大小写的文件系统上失败。但除此之外，除非有其他方法可以更全面地告诉哪些目录与哪些挂载点匹配，否则您必须检查任何目录。