1

我正在使用Params::Validate进行验证,但在回调部分而不是定义直接匿名函数,如果我尝试提供对该匿名函数的引用,它会直接跳转到错误记录区域而不在块内打印消息(在传递正确值的情况下)。

use Params::Validate qw(:all);
our $attributeCallback = sub {
    my $parameter = shift;
    $parameter =~ m/^\w+$/i ;
};

sub getSingleValue {
    eval { 
        my ($domainName, $attribute) = validate_pos( @_,
            { 
                type => SCALAR, 
                callbacks => {
                    'Domain name validation failed' => &$attributeCallback
                } 
            },
            { 
                type => SCALAR, 
                callbacks => {
                    'Attribute name validation failed' => sub { 
                        $_[0] =~ m/[\w.-]+$/i } 
                } 
            }
        );
        print "domain name is $domainName and attribute is $attribute";
        1;
    } 
        or do { 
        # catch 
        # Error Logging Area
    };
}

记录的实际错误类似于 “未定义的子例程” ......

谁能告诉为什么会这样?

4

2 回答 2

5
{ type => SCALAR, callbacks =>{'Domain name validation failed' => &$attributeCallback } }

$attributeCallback已经是代码参考。我想你只想说

=> $attributeCallback

代替

=> &$attributeCallback

&$attributeCallback将调用该函数,就像说

callbacks => {'Domain name validation failed' => 1 }
于 2010-02-11T15:35:14.317 回答
2

它失败的原因是因为您正在调用子例程引用并因此使用它的返回值,而不是传递实际的引用。而不是使用

&$attributeCallback

采用

$attributeCallback
于 2010-02-11T15:34:31.883 回答