Perl:cmpthese文本vs传递参数的匿名子问题

Question

如果您cmpthese在Perl Benchmark模块的文档中阅读过,它会说明cmpthese或timethese可以在文本或子例程引用中使用代码.文档似乎暗示这些表单是完全可以互换的:

# Use Perl code in strings...
timethese($count, {
'Name1' => '...code1...',
'Name2' => '...code2...',
});
# ... or use subroutine references.
timethese($count, {
'Name1' => sub { ...code1... },
'Name2' => sub { ...code2... },
});

我遇到了传递带有字符串形式与子程序引用形式的参数的困难cmpthese.要么@array没有传递值,要么我有运行时错误.

我有以下代码:

#!/usr/bin/perl
use strict; use warnings;
use Benchmark qw(:all);

my @array = qw( first second third );

sub target {
    my $str =  $_[0];
    print "str=$str\n";
}

sub control {
    print "control: array[0]=$array[0]\n";
}

my $sub_ref=\⌖
my $control_ref=\&control;

print "\n\n\n";

# ERROR: array does not get passed...
cmpthese(1, {
    'target text' => 'target(@array)',
    'control 1' => 'control()', 
});

# This is OK...
cmpthese(1, {
    'sub code ref' => sub { target(@array) },
    'control 2' => sub { control() },
});

# This is OK too...
cmpthese(1, {
    'target sub' => sub { $sub_ref->(@array) },
    'control 3' => sub { $control_ref->() },
});

# fixed paramenters work:
cmpthese(1, {
    'target text fixed' => 'target("one", "two", "three")',
    'control 4' => 'control()', 
});

# Run time error...
cmpthese(1, {
    'text code ref' => '$sub_ref->(@array)',
    'control 5' => '$control_ref->()',
});

所有形式我都正常工作eval所以我认为这可能是Benchmark的一个问题？我已经使用了我所有的谷歌foo尝试找到两种形式之间的一些记录差异,但我不能.

有谁知道我上面的简单示例似乎没有按预期工作的原因？代码中的注释表明我在OS X,Perl 5.10.0上遇到的问题.

Answer 1

该文本传递给cmpthese并timethese传播到evalBenchmark的深处.除非文本中的参数是文字或全局变量,否则它们在评估时不会在范围内,并且会出现运行时错误.

使用参数的匿名子版本为您的参数提供词法闭包,一切都会很好.

Answer 2

我没有仔细研究过这个问题,但我的猜测是,当Benchmark将字符串转换为代码时,词法变量@array不在范围内.如果你做了@array一个our变量,事情可能会奏效.

但总的来说,我发现使用代码引用更容易.