从Perl中的子例程返回值

您可以像使用任何其他编程语言一样从Perl子例程返回值。如果您没有从子例程中返回值，那么子例程中最后执行的任何计算都会自动也返回值。

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

示例

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

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

输出结果

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

Average for the given numbers : 20