遍历 Perl 中的数组

Question

我正在学习 Perl 教程，但对于如何在调用库时遍历数组感到有些困惑

该库应包含一个函数，该函数接受一个数字数组（任意大小）。然后，该函数将计算数字的平均值、所有数字的总和以及一个新的数字数组，该数组由原始输入数字除以 2 组成。然后它将返回一个包含所有数字的新列表这些信息。

脚本文件，应该通过标准输入从用户那里得到一个数字列表，调用库函数并打印返回的数字。

到目前为止，我在主脚本中有这个：

  #!/usr/local/bin/perl

  require 'test4lib.pl';

  my @numbers;

  while (<>) {
      s/\s+\z//;
      last if $_ eq "";
      push @numbers, $_;
  }
  print "My Numbers are:  @numbers\n";
  number_crunch(@numbers);

  print "Total is: $total\n";
  print "Average is: $Average\n";
  print "Divided by 2 is: @divided_by\n";

还有这个在库函数中：

  sub number_crunch {
    foreach $number(@_) {
      $total = $sum+=$_ for (@_);
      $count = $numelements=(@_);

      $Average = ($total / $count);
      print "Total is: $total\n";
      $Average = ($total / $count);
      print "Average is: $Average\n";

      @divided_by = ();
      foreach (@_) {
        $new_number = $_ / 2;
        push @divided_by, $new_number;
      }
    }
  }
  1;

问题是库中的函数只获取数组的第一个数字，我不确定如何遍历数组。任何帮助表示赞赏。

贝基

Answer 1

正如我在评论中解释的那样，您的代码还有其他问题，但让我仍然回答您关于如何将数组正确传递到子例程的问题。

您只使用数组作为参数并直接访问@_ 的方式实际上确实有效，只要您只想传递一个数组：

use strict;
use warnings;

my @array = (1, 2, 3);

foo(@array);

sub foo
{
    foreach my $num (@_)
    {
        print "$num\n";
    }
}

然而，这里实际发生的是你的数组变成了一个列表并被传递，并且该列表的内容存储在@_ 中。如果你想传递两个未知长度的数组，这很快就会成为一个问题，因为它们的所有元素都将在@_ 中相互跟随。

将数组（或哈希或其他任何东西）传递给 subs 时，更好的做法是使用引用：

use strict;
use warnings;

my @array = (1, 2, 3);

foo(\@array);

sub foo
{
    my @passedArray = @{$_[0]}; #Interpret the reference passed to us first as an array
    foreach my $num (@passedArray)
    {
        print "$num\n";
    }
}

在这种情况下，我将数组复制为子中的第一件事。我在这里这样做是为了使其更具可读性，但它也出于安全目的。由于这是通过引用传递的，如果您要直接处理 @{$_[0]} 并对其进行更改，这些更改也会显示在子外部的 @array 中。当然，在许多情况下，这正是人们想要的。比较：

use strict;
use warnings;

my @array = (1, 2, 3);

square(\@array);

foreach my $num (@array)
{
    print "$num\n";
}

sub square
{
    foreach my $num (@{$_[0]})
    {
        $num *= $num;
    }
}