课程表

Perl课程

工具箱
速查手册

Perl 子程序(函数)

当前位置:免费教程 » 程序设计 » Perl

Perl 子程序也就是用户定义的函数。

Perl 子程序即执行一个特殊任务的一段分离的代码,它可以使减少重复代码且使程序易读。

Perl 子程序可以出现在程序的任何地方,语法格式如下:

  1. sub subroutine{
  2. statements;
  3. }

调用子程序语法格式:

  1. subroutine( 参数列表 );

在 Perl 5.0 以下版本调用子程序方法如下:

  1. &subroutine( 参数列表 );

在新版本上,虽然也支持该调用方法,但不推荐使用。

接下来我们来看一个简单是实例:

  1. #!/usr/bin/perl
  2.  
  3. # 函数定义
  4. sub Hello{
  5. print "Hello, World!\n";
  6. }
  7.  
  8. # 函数调用
  9. Hello();

在线运行实例

执行以上程序,输出结果为:

  1. Hello, World!

向子程序传递参数

Perl 子程序可以和其他编程一样接受多个参数,子程序参数使用特殊数组 @_ 标明。

因此子程序第一个参数为 $_[0], 第二个参数为 $_[1], 以此类推。

不论参数是标量型还是数组型的,用户把参数传给子程序时,perl默认按引用的方式调用它们。

  1. #!/usr/bin/perl
  2.  
  3. # 定义求平均值函数
  4. sub Average{
  5. # 获取所有传入的参数
  6. $n = scalar(@_);
  7. $sum = 0;
  8.  
  9. foreach $item (@_){
  10. $sum += $item;
  11. }
  12. $average = $sum / $n;
  13. print '传入的参数为 : ',"@_\n"; # 打印整个数组
  14. print "第一个参数值为 : $_[0]\n"; # 打印第一个参数
  15. print "传入参数的平均值为 : $average\n"; # 打印平均值
  16. }
  17.  
  18. # 调用函数
  19. Average(10, 20, 30);

在线运行实例

执行以上程序,输出结果为:

  1. 传入的参数为 : 10 20 30
  2. 第一个参数值为 : 10
  3. 传入参数的平均值为 : 20

用户可以通过改变 @_ 数组中的值来改变相应实际参数的值。

向子程序传递列表

由于 @_ 变量是一个数组,所以它可以向子程序中传递列表。

但如果我们需要传入标量和数组参数时,需要把列表放在最后一个参数上,如下所示:

  1. #!/usr/bin/perl
  2.  
  3. # 定义函数
  4. sub PrintList{
  5. my @list = @_;
  6. print "列表为 : @list\n";
  7. }
  8. $a = 10;
  9. @b = (1, 2, 3, 4);
  10.  
  11. # 列表参数
  12. PrintList($a, @b);

在线运行实例

以上程序将标量和数组合并了,输出结果为:

  1. 列表为 : 10 1 2 3 4

我们可以向子程序传入多个数组和哈希,但是在传入多个数组和哈希时,会导致丢失独立的标识。所以我们需要使用引用(下一章节会介绍)来传递。

向子程序传递哈希

当向子程序传递哈希表时,它将复制到 @_ 中,哈希表将被展开为键/值组合的列表。

  1. #!/usr/bin/perl
  2.  
  3. # 方法定义
  4. sub PrintHash{
  5. my (%hash) = @_;
  6.  
  7. foreach my $key ( keys %hash ){
  8. my $value = $hash{$key};
  9. print "$key : $value\n";
  10. }
  11. }
  12. %hash = ('name' => 'W3xue', 'age' => 3);
  13.  
  14. # 传递哈希
  15. PrintHash(%hash);

在线运行实例

以上程序执行输出结果为:

  1. age : 3
  2. name : W3xue

子程序返回值

子程序可以向其他编程语言一样使用 return 语句来返回函数值。

如果没有使用 return 语句,则子程序的最后一行语句将作为返回值。

  1. #!/usr/bin/perl
  2.  
  3. # 方法定义
  4. sub add_a_b{
  5. # 不使用 return
  6. $_[0]+$_[1];
  7.  
  8. # 使用 return
  9. # return $_[0]+$_[1];
  10. }
  11. print add_a_b(1, 2)

在线运行实例

以上程序执行输出结果为:

  1. 3

子程序中我们可以返回标量,数组和哈希,但是在返回多个数组和哈希时,会导致丢失独立的标识。所以我们需要使用引用(下一章节会介绍)来返回多个数组和函数。


子程序的私有变量

默认情况下,Perl 中所有的变量都是全局变量,这就是说变量在程序的任何地方都可以调用。

如果我们需要设置私有变量,可以使用 my 操作符来设置。

my 操作符用于创建词法作用域变量,通过 my 创建的变量,存活于声明开始的地方,直到闭合作用域的结尾。

闭合作用域指的可以是一对花括号中的区域,可以是一个文件,也可以是一个 if, while, for, foreach, eval字符串。

以下实例演示了如何声明一个或多个私有变量:

  1. sub somefunc {
  2. my $variable; # $variable 在方法 somefunc() 外不可见
  3. my ($another, @an_array, %a_hash); # 同时声明多个变量
  4. }
  1. #!/usr/bin/perl
  2.  
  3. # 全局变量
  4. $string = "Hello, World!";
  5.  
  6. # 函数定义
  7. sub PrintHello{
  8. # PrintHello 函数的私有变量
  9. my $string;
  10. $string = "Hello, W3xue!";
  11. print "函数内字符串:$string\n";
  12. }
  13. # 调用函数
  14. PrintHello();
  15. print "函数外字符串:$string\n";

在线运行实例

以上程序执行输出结果为:

  1. 函数内字符串:Hello, W3xue!
  2. 函数外字符串:Hello, World!

变量的临时赋值

我们可以使用 local 为全局变量提供临时的值,在退出作用域后将原来的值还回去。

local 定义的变量不存在于主程序中,但存在于该子程序和该子程序调用的子程序中。定义时可以给其赋值,如:

  1. #!/usr/bin/perl
  2.  
  3. # 全局变量
  4. $string = "Hello, World!";
  5.  
  6. sub PrintW3xue{
  7. # PrintHello 函数私有变量
  8. local $string;
  9. $string = "Hello, W3xue!";
  10. # 子程序调用的子程序
  11. PrintMe();
  12. print "PrintW3xue 函数内字符串值:$string\n";
  13. }
  14. sub PrintMe{
  15. print "PrintMe 函数内字符串值:$string\n";
  16. }
  17.  
  18. sub PrintHello{
  19. print "PrintHello 函数内字符串值:$string\n";
  20. }
  21.  
  22. # 函数调用
  23. PrintW3xue();
  24. PrintHello();
  25. print "函数外部字符串值:$string\n";

在线运行实例

以上程序执行输出结果为:

  1. PrintMe 函数内字符串值:Hello, W3xue!
  2. PrintW3xue 函数内字符串值:Hello, W3xue!
  3. PrintHello 函数内字符串值:Hello, World!
  4. 函数外部字符串值:Hello, World!

静态变量

state操作符功能类似于C里面的static修饰符,state关键字将局部变量变得持久。

state也是词法变量,所以只在定义该变量的词法作用域中有效,举个例子:

  1. #!/usr/bin/perl
  2.  
  3. use feature 'state';
  4.  
  5. sub PrintCount{
  6. state $count = 0; # 初始化变量
  7.  
  8. print "counter 值为:$count\n";
  9. $count++;
  10. }
  11.  
  12. for (1..5){
  13. PrintCount();
  14. }

在线运行实例

以上程序执行输出结果为:

  1. counter 值为:0
  2. counter 值为:1
  3. counter 值为:2
  4. counter 值为:3
  5. counter 值为:4

注1:state仅能创建闭合作用域为子程序内部的变量。

注2:state是从Perl 5.9.4开始引入的,所以使用前必须加上 use。

注3:state可以声明标量、数组、哈希。但在声明数组和哈希时,不能对其初始化(至少Perl 5.14不支持)。


子程序调用上下文

子程序调用过程中,会根据上下文来返回不同类型的值,比如以下 localtime() 子程序,在标量上下文返回字符串,在列表上下文返回列表:

  1. #!/usr/bin/perl
  2.  
  3. # 标量上下文
  4. my $datestring = localtime( time );
  5. print $datestring;
  6.  
  7. print "\n";
  8.  
  9. # 列表上下文
  10. ($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time);
  11. printf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec);
  12.  
  13. print "\n";

以上程序执行输出结果类似如下:

  1. Sun Jun 12 12:28:09 2016
  2. 2106-6-12 12:28:9
转载本站内容时,请务必注明来自W3xue,违者必究。
 友情链接:直通硅谷  点职佳  北美留学生论坛

本站QQ群:前端 618073944 | Java 606181507 | Python 626812652 | C/C++ 612253063 | 微信 634508462 | 苹果 692586424 | C#/.net 182808419 | PHP 305140648 | 运维 608723728

W3xue 的所有内容仅供测试,对任何法律问题及风险不承担任何责任。通过使用本站内容随之而来的风险与本站无关。
关于我们  |  意见建议  |  捐助我们  |  报错有奖  |  广告合作、友情链接(目前9元/月)请联系QQ:27243702 沸活量
皖ICP备17017327号-2 皖公网安备34020702000426号