Perl中如何正确比较两个对象存储的目录路径值

你的代码存在3个核心问题，导致路径比对逻辑失效：

1. 存在冗余无效代码：my ($dictionaryitem) = $'; 这行没有任何业务逻辑作用，$'是Perl正则匹配的内置特殊变量，只有在最近一次正则匹配成功时才会被赋值，值为匹配内容之后的字符串，未发生匹配时变量值不可控，容易引入隐性逻辑错误。
2. 直接用字符串eq比较路径完全不可靠：Windows系统下路径有多种等价写法——分隔符支持\和/混用、路径末尾带不带分隔符指向同一位置、路径大小写不敏感，哪怕是同一个路径，字符串表现可能完全不同，直接比对会出现大量误判。
3. 未做路径规范化处理：手动调用dirname/basename切分路径时，切分结果可能出现C:、C:\、C:/这类指向同一根目录但字符串不一致的情况，没有统一格式就会出现逻辑判断异常。

• 删除冗余的$'赋值代码，所有循环变量提前用my声明，避免全局变量/特殊变量污染。
• 比对前对所有路径做统一规范化处理，消除等价路径的字符串差异。
• 用Perl核心自带的路径处理模块操作路径，不要依赖手动字符串切分，兼容不同写法的路径格式。

use strict;
use warnings;
use File::Spec;
use File::Basename qw(basename dirname);

# 提前对数组内存储的所有路径做规范化，避免循环内重复计算
my @normalized_data;
foreach my $item (@data) {
    # 统一路径格式：转为系统原生分隔符、清理冗余的./、../、末尾多余分隔符
    my $normalized_path = File::Spec->canonpath($item->[0]);
    # Windows路径大小写不敏感，统一转小写；Linux/macOS为大小写敏感系统，可删除该行
    $normalized_path = lc($normalized_path) if $^O eq 'MSWin32';
    push @normalized_data, $normalized_path;
}

# 规范化初始待匹配路径
$immediateParent = File::Spec->canonpath($immediateParent);
$immediateParent = lc($immediateParent) if $^O eq 'MSWin32';

while (length(basename(dirname($immediateParent))) > 1) {
    $immediateParent = dirname($immediateParent);
    my $is_match = 0;

    foreach my $normalized_item (@normalized_data) {
        if ($immediateParent eq $normalized_item) {
            $is_match = 1;
            last;
        }
    }

    last if $is_match;
}

如果需要处理相对路径、符号链接的场景，可以在规范化步骤引入Cwd模块的abs_path函数，先把所有路径转为系统识别的真实绝对路径再比对，准确率更高。

内容的提问来源于stack exchange，提问作者Magesh Maggi