Perl学习笔记-子程序

wsxxz

• 某个函数可以是子程序，也可以是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"