答案

在Perl中，文件描述符（filehandles）是特殊的对象（全局或词法变量），与物理或虚拟文件相关联。正确打开、检查和关闭文件对于防止资源泄漏和安全问题非常重要。

正确使用的示例：

open my $fh, '<', 'myfile.txt' or die "无法打开文件: $!";
while (my $line = <$fh>) {
    print $line;
}
close $fh or warn "无法关闭文件: $!";

细节：

现代的文件应以 perl5 模式打开：使用词法文件句柄 (open my $fh, ...)。全局描述符 (OPEN FILE, ...) 被认为是过时的。
必须检查文件打开是否成功。始终使用 or die/or warn。
完成工作后，必须通过 close 关闭文件并处理可能的错误。
对于二进制文件，使用层： binmode $fh。
为避免漏洞，请始终转义路径中的变量并检查访问权限。

机智问题

open FH, ... 和 open my $fh, ... 之间有什么区别，为什么推荐使用第二种方式？

答案： 构造 open my $fh, ... 创建一个词法限制的文件描述符，这意味着它仅在当前块/子程序中有效，并在作用域外自动销毁。这可以防止意外的描述符覆盖，保护全局文件句柄的名称冲突，提高可靠性。

open FH, '<', 'file.txt';    # 全局描述符！建议避免使用。
open my $fh, '<', 'file.txt'; # 词法，安全。

故事

在一个大型项目中，允许使用相同的全局描述符 (OPEN LOG, ...)。结果是并行请求意外地写入错误的文件，导致日志丢失或混淆。

故事

开发者忘记检查文件打开是否成功；结果，如果文件不存在，错误会在其他地方被覆盖（例如，日志写错了地方，删除了其他人的文件等）。

故事

未调用 close 导致在大规模文件处理时服务器上的描述符耗尽——服务器开始“挂起”并在大量数据时崩溃。