对 perl 中一个非常简单的 if / else 语句感到困惑

Question

print "content-type: text/html \n\n";   #The header
$file = "newtext.txt";
if (unlink($file) == 0) {
    print "File deleted successfully.";
} else {
    print "File was not deleted.";
}

这是我从 tizag 获取的一些代码。我不明白的部分是 true 的 bool 值为 1，而 false 为 0。那么为什么当我成功删除文件时我正在检查它是否返回 0？

Answer 1

这似乎是一个错误..来自 perldoc perlfunc：

删除文件列表。论成功，
它返回文件的数量
删除成功。失败时，它
返回 false 并设置 $! （错误号）：

如果返回值为0，则删除了0个文件。

正确的写法是：

if (unlink($file)) { print "Success!" }
else { print "Unlink failed: $!" }

Answer 2

事实上，我认为这是一个错误。来自 perldoc for unlink：

成功时，它返回成功删除的文件数。失败时，它返回 false 并设置 $! （错误号）

可能是自动驾驶仪上的 shell 编程。

Answer 3

该代码段可能只是错误的，因为 unlink 返回数字已成功删除文件。

Answer 4

好吧，别介意我的第一反应。这是来自取消链接的 perldoc：

删除文件列表。成功后，它会返回成功删除的文件数。失败时，它返回 false 并设置 $! （错误号）

证明不存在标准之类的东西。不幸的是，这也证明无论谁编写了该代码，都有一个错误。就我个人而言，我预计 0 意味着成功。如果您查看 C 系统调用 unlink，零表示成功。完全疯狂，我告诉你。