在 Perl 中打开和读取文件的最佳方法是什么？

请注意 - 我并不是在寻找打开/读取文件的“正确”方式，或者每次都应该打开/读取文件的方式。我只是有兴趣了解大多数人使用什么方式，也许同时学习一些新方法:)*

我的 Perl 程序中一个非常常见的代码块是打开一个文件并对其进行读取或写入。我见过很多这样做的方法，而且多年来我执行这项任务的风格也发生了几次变化。我只是想知道是什么best（如果有最好的方法）方法是这样做吗？

我曾经打开这样的文件：

my $input_file = "/path/to/my/file";
open INPUT_FILE, "<$input_file"  || die "Can't open $input_file: $!\n";

但我认为这存在错误捕获的问题。

添加括号似乎可以修复错误捕获：

open (INPUT_FILE, "<$input_file")  || die "Can't open $input_file: $!\n";

我知道你也可以将文件句柄分配给变量，所以我可以使用 $input_filehandle，而不是像上面那样使用“INPUT_FILE” - 这样更好吗？

对于读取一个文件，如果它很小，像这样的通配符有什么问题吗？

my @array = <INPUT_FILE>;

or

my $file_contents = join( "\n", <INPUT_FILE> );

或者你应该总是循环遍历，像这样：

my @array;
while (<INPUT_FILE>) {
  push(@array, $_);
}

我知道在 perl 中有很多方法可以完成任务，我只是想知道是否有打开和读取文件的首选/标准方法？

没有通用标准，但有理由选择其中之一。我的首选形式是这样的：

open( my $input_fh, "<", $input_file ) || die "Can't open $input_file: $!";

原因是：

• 您立即报告错误。 （如果您想要的话，请将“死亡”替换为“警告”。）
• 您的文件句柄现在是引用计数的，因此一旦您不使用它，它将自动关闭。如果您使用全局名称 INPUT_FILEHANDLE，则必须手动关闭该文件，否则它将保持打开状态，直到程序退出。
• 读取模式指示符“

如果文件很小并且您知道需要所有行，则以下内容非常有用：

my @lines = <$input_fh>;

如果您需要将所有行作为单个字符串处理，您甚至可以这样做：

my $text = join('', <$input_fh>);

对于长文件，您需要使用 while 迭代行，或使用 read。