perl - 如何使用 Perl 检查和删除符号链接(symbolic link)(如果存在)？

Question

if (-e "$ENV{MYHOME}/link") {
    system("rm $ENV{MYHOME}/link");
}

这是用于检查符号链接(symbolic link)是否存在并在存在时将其删除的代码。

我正在跟踪此代码不起作用的错误。到目前为止，我还无法弄清楚，但发生的事情是此代码无法删除符号链接(symbolic link)，从而导致“文件存在”错误。

我想检查这种技术是否存在一些根本缺陷？我还读到了 http://perldoc.perl.org/functions/unlink.html但想知道是否由于某种原因不推荐当前的方法？

Answer 1

只需使用:

if ( -l "$ENV{MYHOME}/link" ) {
    unlink "$ENV{MYHOME}/link"
        or die "Failed to remove file $ENV{MYHOME}/link: $!\n";
}

如果取消链接失败，它会说明原因。 -l询问目标是否是链接。 -e询问文件是否存在。如果您的链接指向一个不存在的文件，它将返回 false，并且您的代码将无法删除该链接。