linux - 使用 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";
    }

}

但是我得到这个错误:

Global symbol "$direction" requires explicit package name at Perl.pl line 31. syntax error at Perl.pl line 31, near "){" syntax error at Perl.pl line 35, near "}" Execution of Perl.pl aborted due to compilation errors.

本例中的第 31 行是:

if(-d $direction)

有什么想法吗？

Answer 1

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

此行缺少分号，导致编译错误。