在tchrists broilerplate 中，我在 END 块中发现了 STDOUT 的显式关闭。
END { close STDOUT }
我知道 END 并关闭，但我不知道为什么需要它。
开始搜索的时候，在perlfaq8找到如下：
例如，您可以使用它来制作 确保您的过滤程序成功 在不填满的情况下完成其输出 磁盘：
END {
close(STDOUT) || die "stdout close failed: $!";
}
反正也不明白。 :(
谁能解释一下（也许有一些代码示例）：
【问题讨论】：
标签： perl
很多系统都实现了“乐观”的文件操作。我的意思是，调用 print 应该向文件中添加一些数据可以在数据实际写入文件之前成功返回，或者甚至在磁盘上保留足够的空间以使写入成功之前成功返回。
在这些情况下，如果您的磁盘快满了，您的所有打印都可以显示成功，但是当需要关闭文件并将其刷新到磁盘时，系统会意识到没有剩余空间了。然后在关闭文件时出现错误。
此错误意味着您认为已保存的所有输出实际上可能根本没有保存（或部分保存）。如果这很重要，您的程序需要报告错误（或尝试纠正这种情况，或者...）。
所有这些都可能发生在STDOUT 文件句柄上，如果它连接到一个文件，例如如果您的脚本运行为：
perl script.pl > output.txt
如果您输出的数据很重要，并且您需要知道所有数据是否确实写得正确，那么您可以使用您引用的语句来检测问题。例如，在您的第二个 sn-p 中，如果 close 报告错误，则脚本显式调用 die； tchrist's boilerplate 在use autodie 下运行，如果close 失败，它会自动调用die。
（虽然这并不能保证数据会永久存储在磁盘上，其他因素也会在那里发挥作用，但这是一个很好的错误指示。即，如果关闭失败，你知道你有问题。）
【讨论】：
use autodie;
END 子句会使 perl 本身成为正确的警告，并通过 dieing 宣布失败。
close STDOUT 的重点不是关闭流，当 perl 进程退出时，无论如何都会发生这种情况。关键是如果close 失败，那么进程将以非零状态码退出，表示失败。这是由use autodie 带来的，或者在您的另一个示例中由close STDOUT || die 完成。
END{close STDOUT} 的唯一时间是当我将它送入管道时。即便如此，有时我有一个$SIG{PIPE} = sub {exit 0}，而不是一般情况下，过滤程序无法检测到 STDOUT 故障是一个错误。我有时会延迟安装 atexit 处理程序，如eval qq{END {close STDOUT }} 或使用END{eval{ close STDOUT } } 保护它免受autodie 的影响。但是当你有 STDOUT 进入管道时，根据open(STDOUT, "|less")，你当然最好等待它，否则你的父母会在孩子之前退出，搞砸输出。 默认情况下，假设您需要它。
我认为马特错了。
Perl 和系统都有缓冲区。 close 导致 Perl 的 缓冲区刷新到系统。正如 Mat 所声称的那样，它不一定会导致 系统的 缓冲区写入磁盘。这就是fsync 所做的。
现在，这无论如何都会在退出时发生，但调用 close 让您有机会处理它在刷新缓冲区时遇到的任何错误。
close 所做的另一件事是在系统尝试将其缓冲区刷新到磁盘时报告早期错误。
【讨论】：