检查Perl是否存在目录

Question

我试图检查具有Perl的UNIX系统中是否存在目录.

while (my @row = $sth->fetchrow_array) {
    my $id = $row[0];
    my $hash = $row[1];
    my $direction = '/home/users/' . $hash

    if(-d $direction){
        print "$direction exists";
    }

}

但我得到这个错误:

全局符号"$ direction"需要在Perl.pl第31行显式包名.在Perl.pl第31行的语法错误,""{"语法错误在Perl.pl第35行,靠近"}"执行Perl.pl中止由于编译错误.

在这种情况下,第31行是:

if(-d $direction)

有任何想法吗？

Answer 1

my $direction = '/home/users/' . $hash

此行缺少分号,导致编译错误.