資料結構
網路
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+ 瀏覽
廣告