Perl学习笔记-子程序

1. 某个函数可以是子程序，也可以是Perl自带的函数。
2. Subroutines意思就是自定义的而非系统自带的函数。
3. 使用sub来定义子程序，例如 sub sayHello { print "Hello, World"}。
4. 子程序的定义是全局的。没有私有子程序。如果两个子程序的名字一样，后面的子程序将会覆盖前面定义的子程序。
5. 子程序使用&符号来调用。例如&sayHello;
6. 所有的Perl子程序默认都是有返回值，Perl的设计者觉得使用return是种浪费。
7. 最后一个表达式会作为返回值返回。
8. 子程序可以自带参数，而且参数的个数不限。每次子程序都把变长的参数放入@_的列表里面。子程序的第一个值放入$_[0]，第二个值放入$_[1]。
9. 如果@_的参数个数跟预想的个数不一样，那么将会用undef。@_就是相当于用参数来初始化的列表。
10. @_对于子程序都是不一样的，都是子程序私有的。每个子程序都会被创建一个新的@_来使用。
11. 使用my可以用来初始化私有变量，变量可以私有，子程序不能私有。my可以是列表，例如my($param_1, $param_2)，当my后面不是列表的时候，只能声明一个私有变量，例如my $param_1, $param_2。那么后面那个变量不是私有的。
12. 可以使用@_ != 2  来判断是否参数的个数为2， 尽管@_是一个列表，但是当在!= 2这样的上下文中，就会变成标量使用了。
13. 因为Perl默认是一种宽容的语言，如果你想要解释的时候有严格的语法控制，那么可以在文件的开头处添加 use strict;
14. Perl的子程序还是可以显示的使用return来进行返回的。
15. 两种情况下可以省略调用子程序的&，一种是调用之前已经把自定义的子程序放到调用语句之前，一种就是调用Perl自带的函数，两个的意思都是一样的。
16. 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"