本文概述
Perl函数和子例程用于重用程序中的代码。你可以在应用程序中的多个位置使用具有不同参数的函数。
函数和子例程之间只有一个区别, 子例程是使用sub关键字创建的, 并返回一个值。你可以将代码分成单独的子例程。从逻辑上讲, 每个部门中的每个功能都应执行特定任务。
子程序的语法:
sub subName{
body
}
Perl定义和调用子例程功能
Perl定义子例程函数的语法如下:
sub subName{
body
}
OR
subName(list of arguments);
&subName(list of arguments);
在下面的示例中, 我们定义一个子例程函数” myOffice”并调用它。
#defining function
sub myOffice{
print "srcmini!\n";
}
# calling Function
myOffice();
输出
srcmini!
具有参数的Perl子例程功能
你可以在子例程中传递任意数量的参数。参数在特殊的@_ list数组变量中作为列表传递。因此, 该函数的第一个参数为$ _ [0], 第二个参数为$ _ [1], 依此类推。
在此示例中, 我们通过传递单个参数来计算正方形的周长。
$squarePerimeter = perimeter(25);
print("This is the perimter of a square with dimension 25: $squarePerimeter\n");
sub perimeter {
$dimension = $_[0];
return(4 * $dimension);
}
输出
100
带列表的Perl子例程
这里的@_变量是一个数组, 因此用于将列表提供给子例程。我们用列表声明了一个数组” a”并调用它。
sub myList{
my @list = @_;
print "Here is the list @list\n";
}
@a = ("Orange", "Pineapple", "Mango", "Grapes", "Guava");
# calling function with list
myList(@a);
输出
Here is the list Orange Pineapple Mango Grapes Guava
带哈希的Perl子例程
当哈希传递给子例程时, 哈希将自动转换为其键值对。
sub myHash{
my (%hash) = @_;
foreach my $key ( keys %hash ){
my $value = $hash{$key};
print "$key : $value\n";
}
}
%hash = ('Carla' => 'Mother', 'Ray' => 'Father', 'Ana' => 'Daughter', 'Jose' => 'Son');
# Function call with hash parameter
myHash(%hash);
输出
Ray : Father
Jose : Son
Carla : Mother
Ana : Daughter
Perl子例程局部和全局变量
默认情况下, 所有变量都是Perl内部的全局变量。但是你可以使用” my”关键字在函数内创建局部变量或私有变量。
” my”关键字将变量限制为可以在其中使用和访问它的特定代码区域。在此区域之外, 不能使用此变量。
在下面的示例中, 我们同时显示了局部变量和全局变量。首先, $ str在本地被称为(AAABBBCCCDDD), 然后在全球被称为(AEIOU)。
$str = "AEIOU";
sub abc{
# Defining local variable
my $str;
$str = "AAABBBCCCDDD";
print "Inside the function local variable is called $str\n";
}
# Function call
abc();
print "Outside the function global variable is called $str\n";
输出
Inside the function local variable is called AAABBBCCCDDD
Outside the function global variable is called AEIOU