如何比较两个perl对象值？

Question

我需要比较两个perl对象值，一个是来自一个变量，另一个是来自阵列值

即时编号，并且数据包含路径指令值（c：\ users \ public \ document \ public \ document），

while (length(basename(dirname(($immediateParent)))) > 1)
{
    $immediateParent = (dirname(($immediateParent)));
    my ($dictionaryitem) = $';
    my $boolean =0;

    foreach $dictionaryitem (@data)
    {
        if ($immediateParent eq $dictionaryitem->[0])
        {
            $boolean = 1;
            last;
        }
    }
        
    if ($boolean)
    {
        last;
    }
}

我试图比较两个路径目录的值，但是这种情况总是返回的，因此无效。您是否友好地建议我如何比较两个路径值？

Answer 1

如果 data :: data :: Dumper

$immediateParent = 'C:\\Users\\Public';
$dictionaryitem  = 'C:\\Users\\Public';

则显示您应该直接进行比较而无需阵列，则删除 - ＆gt; [0] ：

if ($immediateParent eq $dictionaryitem)

perl让您放置字符串的事实很奇怪。您是否不使用严格？