这可能看起来像最近提出的why Perl doesn't allow one-liners to be "unblocked," 的问题，但我发现该问题的答案并不令人满意，因为他们要么提到了the syntax documentation that says that braces are required，我认为这只是在乞求问题，要么忽略了这个问题，只是给了无牙套替代品。
为什么 Perl 需要为控制语句（如 if 和 for）使用大括号？换句话说，为什么 Perl 需要块而不是语句，就像其他一些流行语言允许的那样？
【问题讨论】：
标签： perl syntax language-design
一个原因可能是某些样式规定您应该始终使用带有控制结构的大括号，即使对于一个衬里也是如此，以避免以后破坏它们，例如：
if (condition)
myObject.doSomething();
else
myObject.doSomethingElse();
然后有人在第一部分添加了更多内容：
if (condition)
myObject.doSomething();
myObject.doSomethingMore(); // Syntax error next line
else
myObject.doSomethingElse();
或者更糟：
if (condition)
myObject.doSomething();
else
myObject.doSomethingElse();
myObject.doSomethingMore(); // Compiles, but not what you wanted.
在 Perl 中，这类错误是不可能发生的，因为不使用带有控制结构的大括号总是语法错误。实际上，风格决定已在语言语法级别强制执行。
这是否是真正的原因，只有拉里的小胡子知道。
【讨论】：
一个原因可能是一些结构没有大括号会模棱两可：
foreach (@l) do_something unless $condition;
unless $condition 是适用于整个事物还是仅适用于 do_something 语句？
当然，这可以通过优先规则或其他东西来解决， 但这将是另一种创建令人困惑的 Perl 代码的方法:-)
【讨论】：
无括号 if-else 子句的一个问题是它们会导致语法歧义：
if (foo)
if (bar)
mumble;
else
tumble;
鉴于上述情况，在什么条件下执行翻转？它可以被解释为在!foo 或foo && !bar 时发生。添加大括号可以消除歧义，而不会过多地污染源。然后您可以继续说，使用大括号总是一个好主意，所以让我们让语言需要它，并解决无休止的 C 争论，即是否应该使用它们。或者，当然，您可以通过完全摆脱大括号并使用缩进来指示嵌套来解决问题。两者都是使清晰、明确的代码成为自然的事情而不需要特别努力的方法。
【讨论】：
在 Programming Perl（Larry Wall 合着）第 3 版，第 113 页中，复合语句是根据表达式和块定义的，而不是语句，块有大括号。
请注意，与 C 和 Java 不同， [复合语句]定义在 BLOCKS 的条款，而不是陈述。 这意味着大括号是 要求——没有悬空语句 允许。
我不知道这是否能回答你的问题，但在这种情况下，他似乎选择了一种简单的语言结构而不是例外。
【讨论】：
也许与您关于（大概）Perl 5 及更早版本的问题没有直接关系，但是……
在 Perl 6 中，控制结构不需要括号：
if $x { say '$x is true' }
for <foo bar baz> -> $s { say "[$s]" }
如果大括号也是可选的，这将是非常模棱两可的。
【讨论】：
难道不是Perl允许你跳过大括号，但是你必须写语句before条件？即
#!/usr/bin/perl
my $a = 1;
if ($a == 1) {
print "one\n";
}
# is equivalent to:
print "one\n" if ($a == 1);
【讨论】：
if 的功能，因为后缀条件不提供包含 else 的方法子句。
"好的，所以通常情况下，你需要在块周围加上大括号，但如果块只有一个语句长，则不需要，当然，除非你的语句在某种方式上会受到优先规则的约束如果你省略了大括号，就不会像你想要的那样——在这种情况下，你也可以想象使用括号，但这会不一致，因为它毕竟是一个块——这当然取决于相应的优先级在任何情况下，你都不需要在右大括号之后加上分号——如果你结束一个 if 语句后跟一个 else 语句，那甚至是错误的——除非你绝对必须在最后加上一个分号C++ 中的头文件（或者是 C？）。"
说真的，我很高兴代码中的每一个明确性和统一性。
【讨论】：
只是在这里猜测，但“未阻塞”循环/ifs/等。往往是在代码维护期间引入细微错误的地方，因为马虎的维护者可能会尝试在“循环内”添加另一行而没有意识到它真的在里面。
当然，这是我们正在谈论的 Perl，所以可能任何依赖于可维护性的论点都是可疑的...... :)
【讨论】：