将参数传递给Perl中的子例程

您可以像在任何其他编程语言中一样将各种参数传递给Perl子例程，并且可以使用特殊数组@_在函数内部对其进行访问。因此，函数的第一个参数在$_ [0]中，第二个参数在$_ [1]中，依此类推。

您可以像任何标量一样将数组和散列作为参数传递，但是传递多个数组或散列通常会导致它们失去各自的标识。因此，我们将使用引用（在下一章中进行说明）来传递数组或哈希。

让我们尝试以下示例，该示例获取一个数字列表，然后输出其平均值-

示例

#!/usr/bin/perl
# Function definition
sub Average {
   # get total number of arguments passed.
   $n = scalar(@_);
   $sum = 0;
   foreach $item (@_) {
      $sum += $item;
   }
   $average = $sum / $n;
   print "Average for the given numbers : $average\n";
}
# Function call
Average(10, 20, 30);

输出结果

执行以上程序后，将产生以下结果-

Average for the given numbers : 20