从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 金店立秋祝福语简短英文
18 婆婆高寿祝福语大全简短