从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 儿童毕业祝福语 简短6
14 开工仪式横幅祝福语简短
15 孩子日常祝福语大全简短
16 清晨寄语诗句祝福语简短
17 结婚送亲认亲祝福语简短
18 虎年喝酒拜年祝福语简短