perl的一点问题

perl版本是5.16（centos7上自带）

perl模块化写程序有一些小问题，我遇到的情况类似如下，

正确能工作的代码如下，

my @ifIndex; sub interface_fromobj { my $policy_index = @_[0]; foreach (@ifIndex) { s/"//g ; my @littlearray = split / /; my @oid = split /\./, $littlearray[0]; chomp $littlearray[3]; if ($oid[-1] eq $policy_index) { my $ifDescr = `$snmpget -v $version $node -c $comm $ifDescr_oid.$littlearray[3]`; my @ifDescrarray = split (/ /,$ifDescr); chomp $ifDescrarray[3]; return $ifDescrarray[3]; } } } 这是改写后的代码，原始代码类似如下

sub interface_fromobj {

                my @ifIndex = @_[0];                 my $policy_index = @_[1];                 foreach (@ifIndex) {                         s/"//g ;                         my @littlearray = split / /;                         my @oid = split /\./, $littlearray[0];                         chomp $littlearray[3];                         if ($oid[-1] eq $policy_index) {                                 my $ifDescr = `$snmpget -v $version $node -c $comm $ifDescr_oid.$littlearray[3]`;                                 my @ifDescrarray = split (/ /,$ifDescr);                                 chomp $ifDescrarray[3];                                 return $ifDescrarray[3];                         }                 } }

在原始代码中，出现的情况是@ifIndex经常获取失败。

也就是说，模块化的perl程序子函数，对于输入参数是数组（例如这里@ifIndex）的类型，经常性会出现问题。原因可能是数组比较大？未明FIXME

建议修改的方法，是将这种数组作为全局变量，像开头我使用的情况一样。