从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
热门推荐
10 儿子立冬祝福语简短独特
11 对当兵的祝福语简短
12 侄儿高考试祝福语简短
13 伴郎红包祝福语朋友简短
14 媳妇生日简短祝福语朋友
15 公司年会祝福语简短最好
16 元旦感恩祝福语简短大全
17 红包祝福语简短10字
18 周六早晨祝福语简短