perl - 使用 Perl 检查目录是否存在于 ~/

Question

我注意到-d标志的奇怪行为来检查文件是否是目录以及目录是否存在。~/my_dir用作我的路径时，它的行为有所不同。

以下代码将返回 false，即使该目录my_dir存在，但如果我将其更改为完整路径，如/home/ricky/my_dir，则该if语句将返回 true。

#!/usr/bin/perl -w
#
use strict;

if ( -d "~/my_dir") {
    print "Found \n";
}
else {
    print "Not found \n";
}

有什么不同？

score 12 · Accepted Answer

~是指示主目录的shell快捷方式，perl 不知道。您必须在HOME此处使用环境变量——例如使用"$ENV{HOME}/my_dir".

score 5 · Accepted Answer

~不是真正的路径。Shells 等/bin/bash将其扩展为$HOME环境变量的值。Perl 没有。所以，你应该改用这样的东西：

if ( -d "$ENV{HOME}/my_dir" ) {
    ...
}

score -2 · Accepted Answer

您也可以通过执行 chdir 命令进行检查。如果目录不存在，chdir "dir_name" 将返回 0。如果目录存在，则为 1。

3 回答 3