- 某个函数可以是子程序,也可以是Perl自带的函数。
- Subroutines意思就是自定义的而非系统自带的函数。
- 使用sub来定义子程序,例如 sub sayHello { print "Hello, World"}。
- 子程序的定义是全局的。没有私有子程序。如果两个子程序的名字一样,后面的子程序将会覆盖前面定义的子程序。
- 子程序使用&符号来调用。例如&sayHello;
- 所有的Perl子程序默认都是有返回值,Perl的设计者觉得使用return是种浪费。
- 最后一个表达式会作为返回值返回。
- 子程序可以自带参数,而且参数的个数不限。每次子程序都把变长的参数放入@_的列表里面。子程序的第一个值放入$_[0],第二个值放入$_[1]。
- 如果@_的参数个数跟预想的个数不一样,那么将会用undef。@_就是相当于用参数来初始化的列表。
- @_对于子程序都是不一样的,都是子程序私有的。每个子程序都会被创建一个新的@_来使用。
- 使用my可以用来初始化私有变量,变量可以私有,子程序不能私有。my可以是列表,例如my($param_1, $param_2),当my后面不是列表的时候,只能声明一个私有变量,例如my $param_1, $param_2。那么后面那个变量不是私有的。
- 可以使用@_ != 2 来判断是否参数的个数为2, 尽管@_是一个列表,但是当在!= 2这样的上下文中,就会变成标量使用了。
- 因为Perl默认是一种宽容的语言,如果你想要解释的时候有严格的语法控制,那么可以在文件的开头处添加 use strict;
- Perl的子程序还是可以显示的使用return来进行返回的。
- 两种情况下可以省略调用子程序的&,一种是调用之前已经把自定义的子程序放到调用语句之前,一种就是调用Perl自带的函数,两个的意思都是一样的。
- Perl允许自定义的子程序和自带的函数名字一样,如果这个时候要使用自定义的子程序的话,那么加上&符号是必须的。
答案:
sub above_average { my $result = 0; for (@_) { $result += $_; } $average = $result / @_; print "average is: " . $average . "\n"; @results = (); for (@_) { if ($_ > $average) { push @results, $_ . "\n"; } } @results; } sub total { my $result = 0; for (@_) { $result += $_; } $result; } @oneToThounsand = (1..1000); print "----------result-------------\n"; print above_average(1200, @oneToThounsand); #print "----------result-------------\n"; #print total(@oneToThounsand); # @inputs = qw (122 223 444 55); #print "----------result-------------\n"; #print total(@inputs); #print "\n"; # @inputs = <STDIN>; #print "----------result-------------\n"; #print total(@inputs); #print "\n"