perl - 反引号与 PERL 中的本地做事方式

Question

考虑这两个片段:

#!/bin/bash/perl
open(DATA,"<input.txt");
while(<DATA>)
{
  print($_) ;
}

和

$abcd = `cat input.txt`;
print $abcd;

两者都会打印文件input.txt的内容作为输出

问题:是否有任何标准，关于哪一个(反引号或native-method)应该优先于另一个，在任何特定情况或两者总是相等的？？

我问这个问题的原因是因为我发现 cat 方法比使用原生 perl 方法打开文件更容易，所以，这让我怀疑如果我可以通过反引号方式实现某些目标，我应该继续使用它还是更喜欢其他本地方式来做这件事!!

我也检查了这个线程: What's the difference between Perl's backticks, system, and exec? 但它的路线与我的怀疑不同!!

Answer 1

尽可能使用内置函数:

• 它们更便携:open 可以在 Windows 上运行，而 `cat input.txt` 则不能。

• 它们的开销较小:使用反引号会 fork 、执行一个解析命令的 shell，该命令会执行 cat 程序。这不必要地加载了两个程序。这与作为内置 Perl 函数的 open 形成对比。

• 它们使错误处理更容易。 open 函数将在出错时返回一个 false 值，这允许您采取不同的操作，例如比如用错误信息终止程序:

  open my $fh, "<", "input.txt" or die "Couldn't open input.txt: $!";
  

• 它们更灵活。例如，如果您的数据不是 Latin-1 文本，您可以添加编码层:

  open my $fh, "<:utf8", "input.txt" or die "Couldn't open input.txt: $!";
  open my $fh, "<:raw", "input.bin" or die "Couldn't open input.bin: $!";
  

如果你想要一个“只将这个文件读入一个标量”的函数，请查看 File::Slurp模块:

use File::Slurp;

my $data = read_file "input.txt";