perl - 如何在没有 "called too early to check prototype"的情况下声明函数并递归使用它

Question

我有一个通用的递归函数，但为什么它没有在 perl 中授权

sub pv($) {
    my ($vars) = @_;
    if(ref($vars) eq 'SNMP::Varbind') {
        return $vars->tag() . (defined($vars->iid()) ? '.' . $vars->iid() : '');
    } elsif (ref($vars) eq 'SNMP::VarList') {
        return join(', ', map { pv($_) } @$vars);
    } elsif(ref($vars) eq 'ARRAY') {
        return join('.', @{$vars});
    } else {
        return $vars;
    }
}

此行的此错误代码“pv() 调用太早无法检查原型(prototype)” return join(', ', map { pv($_) } @$vars);

Answer 1

简单:前向声明

sub pv($);
sub pv($) {