Perl中被调用子程序能否访问调用方的非全局变量？

当然可以！你碰到的是Perl里变量作用域的典型问题——默认情况下，用my声明的子程序局部变量，只能在自身作用域内访问，外部子程序是看不到的。但完全不用把变量改成全局（毕竟全局变量确实有线程安全、命名冲突的风险），下面给你几个实用的解决方案：

方案1：直接传递所有需要的变量作为参数 #

这是最直观的方法，把esr_info里的局部变量都作为参数传给conf_esr。注意数组要传引用，避免扁平化问题：

sub esr_info { 
    my $esr; 
    my @vpls = (); 
    my @sap = (); 
    my @spoke = (); 
    # 把所有需要的变量（数组传引用）传给conf_esr
    conf_esr($esr, \@vpls, \@sap, \@spoke); 
}

sub conf_esr { 
    my ($e, $vpls_ref, $sap_ref, $spoke_ref) = @_; 
    # 通过引用操作原数组
    some_code(@$vpls_ref, @$sap_ref, @$spoke_ref); 
}

用引用的好处是：能保证操作的是原数组，避免不必要的数据拷贝，也支持子程序修改原变量的值（如果业务需要的话）。

方案2：用闭包（Closure）嵌套定义子程序 #

如果conf_esr只在esr_info内部被调用，你可以把它嵌套定义在esr_info的作用域里，这样内部子程序天然能访问外部的局部变量：

sub esr_info { 
    my $esr; 
    my @vpls = (); 
    my @sap = (); 
    my @spoke = (); 

    # 把conf_esr定义在esr_info内部，成为闭包
    sub conf_esr { 
        my $e = shift; # 如果不需要重新赋值，也可以直接用外部的$esr
        some_code(@vpls, @sap, @spoke); 
    }

    conf_esr($esr); 
}

注意：这种方式下，conf_esr会持有esr_info变量的引用，直到它被销毁。如果esr_info会被多次调用，要留意变量的生命周期问题。

方案3：用哈希引用封装变量（适合变量较多的场景） #

如果需要传递的变量很多，一个个传参数太繁琐，可以把所有变量放进一个哈希引用里，只传递这个引用：

sub esr_info { 
    my $data = {
        esr => undef,
        vpls => [],
        sap => [],
        spoke => []
    }; 
    conf_esr($data); 
}

sub conf_esr { 
    my $data_ref = shift; 
    some_code(@{$data_ref->{vpls}}, @{$data_ref->{sap}}, @{$data_ref->{spoke}}); 
    # 若要修改$esr，直接操作$data_ref->{esr}即可
}

这种方式更整洁，变量数量越多，维护起来越方便。

为什么你会遇到那个错误？ #

你原来的代码里，conf_esr里的@vpls、@sap等没有用my声明，Perl会默认把它们当作全局变量，但esr_info里的同名变量是my声明的局部变量，两者完全不是同一个东西，所以Perl会报错提示你需要显式的包名。

内容的提问来源于stack exchange，提问作者Farouk H