全局定义的数组

Question

全局定义一个数组，用一个子例程填充它，然后在脚本的另一部分访问它是不好的做法吗？例如，

use strict;
use warnings;

my @people = qw( Ted Bill Tom);
my @names;

&main;

sub main{
    foreach(@people){
        &fillNames;
    }
}

sub fillNames {

    undef @names;
    print "$_\n";
    push(@names,$_);


    }

在上述情况下，我可以让子程序返回数组，但在我的程序中，我使用多个数组执行此操作（据我所知，子程序不能返回多个数组）。

我看到的另一种方法是创建一个文件，让子例程打印文件每个索引的数组内容，然后让主子例程访问该文件。这是更好的方法吗？

Answer 1

通常避免使用全局变量的原因是您很容易遭受“污染” - 变量越多，被更多来源修改，就很难跟踪损坏的代码。

对于简短的脚本，您通常没问题。

不过，我真的会避免使用像 &fillnames; 这样的成语。那是在做一些你可能并不完全期望的事情。以这种方式调用 sub 会“通过”隐含变量，这不是一种好的风格（在我看来）。

改为：

foreach my $person ( @people ) {
   fillNames ( $person ); 
 }

子程序不能返回多个数组，你是对的。好吧，有点 - 它返回一个平面列表，并连接元素。如果要返回多个数组，则需要通过引用来完成。

例如：

sub return_two_arrays {

  my @array1 = ( "one", "two", "three" );
  my @array2 = ( "four", "five", "six" );
  return ( \@array1, \@array2 );
}

my ( $array1_ref, $array2_ref ) = return_two_arrays();
print join ( "\n", @$array1_ref );

不过，请注意 - 您的代码取消定义 @names，然后将一个值推入其中。这可能不是您想要做的——这正是使用“全局变量”可能导致的问题。因为事实上，您在@names 中只会有最后一个“名字”。

Answer 2

这里没有简单明了的答案，但我想说这取决于脚本的大小和范围。

如果您的脚本足够小，可以很容易地跟踪全局变量，那么我会说这没问题。但是，一旦超过一定的大小和复杂程度，我就会对以这种方式使用全局数组持谨慎态度。