How to compare two perl object values?-CodePudding

I need to compare two Perl object values, one is from a variable and another one is from an array value

ImmediateParent and data contain path directive values(C:\Users\Public\Documents)

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;
    }
}

I attempted to compare the values of two paths directories, but the condition always returned true, so it was ineffective. Would you kindly advise me on how to compare two path values?

CodePudding user response：

If Data::Dumper shows

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

then you should compare them directly without array dereference, i.e. remove the ->[0]:

if ($immediateParent eq $dictionaryitem)

The fact that Perl let you dereference a string is weird. Are you not using strict?