perl - 为什么子例程参数的使用比外部变量慢？

Question

运行以下代码：

use strict;
use warnings;
use Benchmark;

my $defaultArray = [1,2,3,4];
sub VARIABLE {
  my $arrayref =  @_ ? $_[0] : $defaultArray;
  return $arrayref->[0].$arrayref->[1].$arrayref->[2].$arrayref->[3];
}

Benchmark::cmpthese(
  -10,
  {
    VARIABLE_DEFAULT => sub { VARIABLE() },
    VARIABLE_NODEFAULT => sub { VARIABLE([4,3,2,1]) },
  }
);

我得到以下基准测试结果：

                            Rate VARIABLE_NODEFAULT   VARIABLE_DEFAULT
VARIABLE_NODEFAULT  313631/s                 --               -74%
VARIABLE_DEFAULT   1210501/s               286%                 --

为什么 NODEFAULT 版本比 DEFAULT 慢很多？

Answer 1

它慢得多，因为您每次调用它时都会创建一个新的匿名数组 ref。将代码更改为：

use strict;
use warnings;
use Benchmark;

my $defaultArray = [1,2,3,4];
sub VARIABLE {
  my $arrayref =  @_ ? $_[0] : $defaultArray;
  return $arrayref->[0].$arrayref->[1].$arrayref->[2].$arrayref->[3];
}

Benchmark::cmpthese(
  -10,
  {
    VARIABLE_DEFAULT => sub { VARIABLE() },
    VARIABLE_NODEFAULT => sub { VARIABLE($defaultArray) },
  }
);

你的基准测试结果会更好：

                        Rate VARIABLE_NODEFAULT   VARIABLE_DEFAULT
VARIABLE_NODEFAULT 1065824/s                 --                -2%
VARIABLE_DEFAULT   1085082/s                 2%                 --

Answer 2

我会说因为 DEFAULT 每次调用都使用同一个数组，而 NODEFAULT 必须为每次调用的数组分配和释放空间。与以下内容进行比较：

Benchmark::cmpthese(
  -10,
  {
    VARIABLE_DEFAULT => sub { VARIABLE() },
    VARIABLE_NODEFAULT => sub { VARIABLE($defaultArray) },
  }
);

                        评价 VARIABLE_NODEFAULT VARIABLE_DEFAULT
VARIABLE_NODEFAULT 1619427/s -- -4%
VARIABLE_DEFAULT 1689428/s 4% --

Answer 3

知道了。这不是使用一个参数而不是一个外部变量，而是测试自己：VARIABLE_NODEFAULT => sub { VARIABLE([4,3,2,1]) } 在这一行中，我们创建了一个数组。不在这一个：VARIABLE_DEFAULT => sub { VARIABLE() },。