数据结构
网络
RDBMS
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C 语言编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理学
化学
生物学
数学
英语
经济学
心理学
社会科学
服装研究
法律研究以 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
更新于: 2019 年 11 月 29 日
4k+ 浏览
广告