Perl 函数和子程序

Perl 函数和子程序用于在程序中重用代码。您可以在应用程序中的多个位置使用具有不同参数的函数。

函数和子程序只有一个区别，子程序使用 sub 关键字创建，并返回一个值。您可以将代码分成单独的子程序。从逻辑上讲，每个分区中的每个函数都应执行特定的任务。

子程序语法

Perl 定义和调用子程序函数

以下是 Perl 定义子程序函数的语法

在以下示例中，我们定义了一个子程序函数 'myOffice' 并调用它。

输出

javaTpoint!

带参数的 Perl 子程序函数

您可以在子程序中传递任意数量的参数。参数作为列表传递到特殊的 @_ 列表数组变量中。因此，函数的第一个参数将是 $_[0]，第二个将是 $_[1]，依此类推。

在此示例中，我们通过传递单个参数来计算正方形的周长。

输出

100

带列表的 Perl 子程序

这里，@_ 变量是一个数组，因此它用于将列表提供给子程序。我们声明了一个带有列表的数组 'a' 并调用它。

输出

Here is the list Orange Pineapple Mango Grapes Guava

带哈希的 Perl 子程序

当将哈希传递给子程序时，哈希会自动转换为其键值对。

输出

Ray : Father
Jose : Son
Carla : Mother
Ana : Daughter

Perl 子程序局部变量和全局变量

默认情况下，所有变量都是 Perl 中的全局变量。但是，您可以使用 'my' 关键字在函数内部创建局部变量或私有变量。

'my' 关键字将变量限制为可以在其中使用和访问的特定代码区域。在此区域之外，无法使用此变量。

在以下示例中，我们同时显示了局部变量和全局变量。首先，局部调用 $str (AAABBBCCCDDD)，然后全局调用它 (AEIOU)。

输出

Inside the function local variable is called AAABBBCCCDDD 
Outside the function global variable is called AEIOU