Perl子程序也就是用户定义的函数
1：子程序语法格式
sub subroutine{
statements;
}
调用子程序语法格式：
subroutine(参数列表)
2 向子程序传递参数
2.1 向子程序传递数组
Perl子程序可以和其他编程一样接受多个参数，子程序参数使用特殊 数组@_标明。
因此子程序的第一个参数为[1]，以此类推
用户可以通过改变@数组中的值来改变相应实际参数的值。
实例
# 定义求平均值函数
sub Average{
# 获取所有传入的参数
$n = scalar(@_);
$sum = 0;
foreach $item (@_){
$sum += $item;
}
$average = $sum / $n;
print '传入的参数为 : ',"@_\n"; # 打印整个数组
print "第一个参数值为 : $_[0]\n"; # 打印第一个参数
print "传入参数的平均值为 : $average\n"; # 打印平均值
}
# 调用函数
Average(10, 20, 30);
执行以上程序，输出结果为：
传入的参数为 : 10 20 30
第一个参数值为 : 10
传入参数的平均值为 : 20
2.2 向子程序传递列表
由于 @_ 变量是一个数组，所以它可以向子程序中传递列表。
但如果我们需要传入标量和数组参数时，需要把列表放在最后一个参数上，如下所示：
实例
#!/usr/bin/perl
# 定义函数
sub PrintList{
my @list = @_;
print "列表为 : @list\n";
}
$a = 10;
@b = (1, 2, 3, 4);
# 列表参数
PrintList($a, @b);
以上程序将标量和数组合并了，输出结果为：
列表为 : 10 1 2 3 4
2.3 向子程序传递哈希
当向子程序传递哈希表时，它将复制到@_中，哈希表将被展开为键/值组合的列表。
实例
#!/usr/bin/perl
#方法定义
sub PrintHash{
my (%hash) = @_;
foreach my $key (keys %hash){
my $value= $hash{$key}
print "$key: $value\n";
}
}
%hash = ('name' => 'runoob' , 'age => 3');
#传递哈希
PrintHash(%hash)
以上程序执行输出结果为：
age : 3
name : runoob
2.4 子程序返回值
子程序可以向其他编程语言一样使用return语句来返回函数值。
如果没有使用return语句，则子程序的最后一行语句将作为返回值。
实例
#!/usr/bin/perl
# 方法定义
sub add_a_b{
# 不使用 return
$_[0]+$_[1];
# 使用 return
# return $_[0]+$_[1];
}
print add_a_b(1, 2)
以上程序执行输出结果为：
3
2.5 子程序的私有变量
默认情况下，Perl中所有的变量都是全局变量，这就是说明变量在程序的任何地方都可以调用。
如果我们需要设置私有变量，可以使用my 操作符来设置。
my 操作符用于创建词法作用域变量，通过my创建的变量，存活于声明开始的地方，直到闭合作用域的结尾。
闭合作用域指的可以是一对花括号中的区域，可以是一个文件，也可以是一个 if, while, for, foreach, eval字符串。
以下实例演示了如何声明一个或多个私有变量：
实例
sub somefunc {
myvariable 在方法 somefunc() 外不可见
my ($another, @an_array, %a_hash); # 同时声明多个变量
}
实例
#!/usr/bin/perl
# 全局变量
$string = "Hello, World!";
# 函数定义
sub PrintHello{
# PrintHello 函数的私有变量
my $string;
$string = "Hello, Runoob!";
print "函数内字符串：$string\n";
}
# 调用函数
PrintHello();
print "函数外字符串：$string\n";
以上程序执行输出结果为：
函数内字符串：Hello, Runoob!
函数外字符串：Hello, World!
2.6 变量的临时赋值
用local 为全局变量提供临时的值，在退出作用域后将原来的值还回去。
local定义的变量不存在于主程序中，但存在于该子程序和该子程序调用的子程序中。
定义时可以给其赋值，如：
实例
#!/usr/bin/perl
# 全局变量
$string = "Hello, World!";
sub PrintRunoob{
# PrintHello 函数私有变量
local $string;
$string = "Hello, Runoob!";
# 子程序调用的子程序
PrintMe();
print "PrintRunoob 函数内字符串值：$string\n";
}
sub PrintMe{
print "PrintMe 函数内字符串值：$string\n";
}
sub PrintHello{
print "PrintHello 函数内字符串值：$string\n";
}
# 函数调用
PrintRunoob();
PrintHello();
print "函数外部字符串值：$string\n";
以上程序执行输出结果为：
PrintMe 函数内字符串值：Hello, Runoob!
PrintRunoob 函数内字符串值：Hello, Runoob!
PrintHello 函数内字符串值：Hello, World!
函数外部字符串值：Hello, World!
2.7 静态变量
state 关键字将局部变量变得持久。
state也是词法变量，所以只在定义该变量的词法作用域中有效
实例
#/urs/bin/perl
use feature 'state';
sub PrintCount{
state $count =0 ; # 初始化变量
print "counter 值为：$count\n ";
$count++;
}
for (1..5){
PrintCount();
}
以上程序执行输出结果为
counter 值为：0
counter 值为：1
counter 值为：2
counter 值为：3
counter 值为：4
2.8子程序调用上下文
子程序调用过程中，会根据上下文来返回不同类型的值，比如以下 localtime() 子程序，在标量上下文返回字符串，在列表上下文返回列表:
实例
#!/usr/bin/perl
# 标量上下文
my $datestring = localtime( time );
print $datestring;
print "\n";
# 列表上下文
($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time);
printf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec); #printf可以格式化输出
print "\n";
以上程序执行输出结果为：
Sun Jun 12 15:58:09 2016
2016-6-12 15:58:9
网友评论