第一个超过10行的练习

按照Perl语言学习第四章的练习，自己写了超过10行的perl程序啦

 

sub total(){
  my $total=shift @_;
  foreach(@_){
    $total+=$_;
    }
  $total;
}

sub average(){
  my $total=&total(@_);
  $total/=@_; #把@_数组当成标量用，返回数组的大小
  }

sub above_average(){
  my $avg=&average(@_);
  print "the average is: $avg\n";
  my @arr=(); #声明一个空数组
  foreach (@_){
  if($_>$avg){  #比较数字，不是gt这个比较字符
    push(@arr,$_);
    }
  }
  @arr;
}
  
@arr=1..1000;
$user_total = &total(@arr);
print "The total of those numbers is $user_total.\n";
@arr=&above_average(@arr);
print "above average: @arr";

 

第一眼看到perl程序相当恐怖，满眼都是一些乱七八糟的符号~！

$ # @ % / . [] {} 等在不同的语境下的意义太灵活了！

不过幸好，这个自己尝试去理解不同符号的意义，不需要编译很快出结果！