“if”的用法与“除非”相对对于 Perl 条件语句

Question

在 Perl 代码中最佳使用 if 与 unless 的指导原则是什么？在某些情况下是否有充分的理由选择其中之一？

Answer 1

在 Perl 最佳实践中，建议永远不要使用 unless。就我个人而言，我认为这是疯狂的。

每当有一个简单的条件时，我都会使用 unless，否则我会写成 if( ! ... )。我发现 unless 版本更具可读性，尤其是用作后缀时：

do_something() unless $should_not_do_that;

我建议在事情变得更加复杂时避免 unless ，例如当您将 elsif 或 else 块。 （幸运的是，或者不幸的是，根据您的观点，没有 elsunless）

此外，任何时候条件都是由其他布尔值组成的复杂表达式。例如，

unless( $foo and !$bar )

非常令人困惑，并且与等效的 if 相比没有任何优势。

Answer 2

除了一种深奥的情况¹ unless 只是 if ! 的语法糖。它的存在是为了让您编写更清晰、更具表现力的代码。当它实现这个目标时就应该使用它，当它损害它时就应该避免它。

我发现 unless 对于循环中的流量控制最有用。例如，

while (<$fh>) {
    next unless /\S/;
    # ...
}

对于简单的否定，我发现它比否定的 if 更清晰——在阅读代码时很容易错过前导的 !。

unless ($condition) {
    do_something();
}

if (!$condition) {
    do_something();
}

但不要写unless ... else，因为那样会很刺耳。

它以后缀形式提供了有关代码的预期路径的提示。

do_normal_thing() unless $some_unlikely_condition;

---

_{1) The last expression evaluated is different, which can affect the behavior of subs without an explicit return.}

Answer 3

经验法则是“除非”可能不应该经常使用。

它在后缀形式中特别有用，例如：

delete_old_widgets() unless $old_widget_count == 0

永远不应该使用 except 的情况：

• 与复合条件（and、or、not）
• 和 else 子句一起使用

Answer 4

我最近花了一个小时试图向某人解释两个嵌套的“除非”子句是如何工作的，如果不将它们反转为带有布尔逻辑的 if 语句，就很难破译。

如果您尝试将其转换为英语，它将有助于指导您。

一个简单的除非工作正常。例如。

“除非你安静，否则我会忽略你”。

unless ($quiet) {
    ignore();
}

虽然我认为这同样有效

，“如果你不安静，我就会忽略你”，但当

if (not $quiet) {
    ignore();
}

事情开始变得复杂时，就是你否定的时候。

“除非你不吵闹，否则我会忽略你”

unless ( ! $noisy) {
    ignore();
}

更好地写成

“如果你吵闹，我会忽略你”

if ($noisy) {
    ignore();
}

因此，如果你也有否定，请不要使用“除非”。

也不要使用“除非其他”

unless ($quiet) {
    ignore();
}
else {
    give_a_sweet();
}

“除非你安静，我会忽略你，否则我会给你一个甜蜜”

通过反转条件来更改它。

if ($quiet) {
    give_a_sweet();
}
else {
    ignore();
}

“如果你安静，我就给你一颗糖，否则我就不理你了”。

如果条件不止一个，事情就会变得混乱。

unless ($quiet and not $fidgit) {
    punish();
}

“除非你安静并且不坐立不安，否则我会惩罚你”。

（抱歉，我的理解力在这里失败了！）

再次否定它。

if (not $quiet or $fidgit) {
    punish();
}

“如果你不安静，或者你烦躁，我会惩罚你”。

即使对于最简单的情况，使用“除非”的问题也经常发生（

我希望自己或别人清楚地表明您何时应该或不应该使用除非？

（除非您没有其他意见？）

Answer 5

虽然我理解这类问题的动机，但我不认为将诸如 unless 之类的东西的使用归结为具体的经验法则是不明智的。这就像 Perl 中的许多辅助语法一样，是为程序员提供一个小小的便利，帮助他们根据自己的判断更清楚地表达自己；我在《Programming Perl》中看到了首席开发人员以多种方式表达的内容。没有更高的目的或合理化。我很清楚这巧妙地解决了这个问题，但我对使用它施加的唯一限制是看到它服务于更广泛的目的，即使代码更清晰。如果是这样，那么一切都好。识别代码是否可理解本身是直观的，并且不能简化为大量过度概括的使用条件，涉及内置修饰符/运算符/整体语法的每个细微差别，以及大型团体项目中需要约束和指南的地方我认为把头发分得这么细是没有意义的。

Answer 6

我的意见是永远不要使用除非。我的理由是：

• 我认为语法使代码更难以阅读。使用单一方法执行 if 会使事情变得更简单、更一致。
• 如果稍后需要添加 else 语句，则应该将 except 更改为 if。如果它已经是一个 if，那就更容易了。
• 如果 except 语句内的逻辑变得更加复杂，那么您最终可能会得到奇怪的代码，例如“unless (x == 5 && y != 7)”。这很奇怪，因为第二次检查有双重否定。
• 还有其他方法可以否定事物，即 x != 5
• 有一个很好的理由。

它与其他语言更加一致，我不知道有任何其他语言有 except 语句，我认为在 perl 中 实际上有 4 种编写 if 语句的方法，if，unless，然后将检查放在行尾而不是开头。我更喜欢与其他语言一致的单一一致方法，也

只值我的 0.02 美元。

Answer 7

恰如其分...

在 Perl 最佳实践中，建议永远不要使用 except。亲自，
我认为这太疯狂了。

20 多年来，我更喜欢 Perl 而不是它的任何替代品（如果没有 Perl 提供模板，大多数替代品都不会存在），我不仅同意“疯狂”的判决，而且我很惊讶（担心）听到“最佳实践” '想要摆脱它。

也就是说，我强烈喜欢为了清晰而编写的代码，而不是一些 Perl 程序员“仅仅因为他们可以”而采用隐式混淆的替代方案。 “unless”是“if”的明确反义词，因此是在“if”条件中嵌入否定的非常有用的替代方法，特别是当条件包含多个运算符时。即使后面跟着 else/elsif，这个基本原理也适用。

Answer 8

也许只是个人意见，但我喜欢使用 except 当 if 条件以 !

Answer 9

语法 if(!$condition) 等效于 except($condition)，并且如果交换条件的 NOT'ing，同样如此。

我个人更喜欢仅使用 IF 语句。为什么？因为要记住的东西比较少。如果您有 100 行代码，其中一半使用 except()，另一半使用 if()，那么与仅使用 if() 语句相比，您需要花费更多时间对其进行调试。

不过，您可能会“掌握”unless 和 if 的窍门，因此在两者之间切换根本不需要时间。但这不仅仅是 if() 与 except() 的问题。不要忘记...

if($condition) {
    #passed-condition code
} else {
    #failed-condition code
}

...相当于...

unless(!$condition) {
    #passed-condition code
} else {
    #failed-condition code
}

但是 if(){...}elsif(){...} 呢？如何将其等效为 except(){...}elsunless(){...} ？逻辑越复杂，在if()和unless()之间切换就越困难。您需要记住和平衡的记忆越少，调试自己的代码就越快。