perl - 被 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 :

Deletes a list of files. On success, it returns the number of files it successfully deleted. On failure, it returns false and sets $! (errno):

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

正确的写法是:

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