为什么使用自动激活文件句柄的三参数开放调用是 Perl 的最佳实践？

Question

我有两个关于 Perl open 函数的问题：

1) 我似乎从 Perl Best Practices 中记得 open 的 3 参数版本比两个参数版本更好，例如

open(OUT, '>>', $file);

对比

open(OUT, ">>$file");

这是为什么呢？前几天我试图告诉某人使用 3 参数版本，但似乎无法用任何东西来支持它。

2) 我似乎还记得 autovivified 文件句柄比裸字文件句柄更受青睐（它们叫不同的东西）？而且也不记得为什么，例如

open(my $out, '>>', $file);

对比

open(OUT, '>>', $file);

这是strict 的事情吗？我似乎记得可以将OUT 与strict 一起使用，但我不记得了。

Answer 1

• 对文件句柄（如 OUT）使用 typeglob 不是一个好主意，因为它们在整个程序中都是全局的 - 您需要确保没有其他例程（包括模块中的例程）使用相同的名称（包括在未来）。
• 使用双参数形式的 open 会使您的应用程序暴露于由包含特殊字符的变量引起的错误行为，例如 my $f; open $f, ">$some_filename"; 会暴露在 $some_filename 包含前导 > 会改变程序行为的错误中.

使用三参数形式通过将模式和文件名分隔为它们不能干扰的单独参数来避免这种情况。

此外，使用管道的大量参数形式是一个非常好的主意：

open $pipe, '|-', 'sendmail', 'fred@somewhere.fake';

比将所有这些都作为单个字符串执行要好——它避免了可能的 shell 注入等。

Answer 2

解决 #2：

OUT 是一个全局文件句柄，使用它会使您面临如下隐蔽的错误：

sub doSomething {
  my ($input) = @_;
  # let's compare $input to something we read from another file
  open(F, "<", $anotherFile);
  @F = <F>; 
  close F;
  &do_some_comparison($input, @F);
}

open(F, "<", $myfile);
while (<F>) {
    &doSomething($_);   # do'h -- just closed the F filehandle
}
close F;

Answer 3

要记住的一个方面是双参数形式被破坏了。考虑一个名为“abc”的文件（即带有前导空格的文件名）。您无法打开该文件：

open my $foo, ' abc' or die $!;
open my $foo, '< abc' or die $!;
open my $foo, '<  abc' or die $!;
# nothing works

空间被删除，因此无法再找到该文件。这种情况极不可能发生，但绝对是个问题。三参数形式对此免疫：

open my $foo, '<', ' abc' or die $!;
# works

This thread 来自 perlmonks 的讨论与任何问题一样好。请记住，在 2001 年，三参数形式仍然被认为是 new，因此不适合可移植代码，因为如果在 5.005 解释器上运行 Perl 程序会因语法错误而死掉。现在不再是这种情况了：perl 5.005 已经过时了，已经过时了。