資料結構
網路
RDBMS
作業系統
Java
MS Excel
iOS
HTML
CSS
Android
Python
C 程式設計
C++
C#
MongoDB
MySQL
Javascript
PHP
物理學
化學
生物學
數學
英語
經濟學
心理學
社會學
時尚研究
法律研究在 Perl 中將引數傳遞給子例程
您可以像在任何其他程式語言中一樣將各種引數傳遞給 Perl 子例程，並且可以使用特殊陣列 @_ 在函式內訪問它們。因此，函式的第一個引數在 $_[0] 中，第二個引數在 $_[1] 中，依此類推。
您可以像傳遞任何標量一樣傳遞陣列和雜湊，但正常情況下傳遞多個數組或雜湊會導致它們失去各自的身份。因此，我們將使用引用（在下一章中解釋）來傳遞陣列或雜湊。
我們來嘗試以下示例，它獲取一個數字列表，然後列印它們的平均值 −
示例
#!/usr/bin/perl
# Function definition
sub Average {
# get total number of arguments passed.
$n = scalar(@_);
$sum = 0;
foreach $item (@_) {
$sum += $item;
}
$average = $sum / $n;
print "Average for the given numbers : $average\n";
}
# Function call
Average(10, 20, 30);輸出
當執行上述程式時，它會產生以下結果 −
Average for the given numbers : 20
更新於: 29-11-2019
2K+ 瀏覽量
廣告