perl 语言入门第四章习题答案

shenzhang

　　#!/usr/bin/perl
　　use strict;
　　use warnings;
　　#sub large_number($_[0],$_[1]){
　　#  if($_[0]>$_[1]){
　　#    print $_[0];}
　　#  else{
　　#    print $_[1];}
　　#
　　#}
　　#$a=;
　　#$b=;
　　#
　　#&large_number($a,$b);
　　#print ;
　　####第四章第一题答案###
　　#sub total{
　　#  my($result)=shift @_;
　　#  foreach(@_){
　　#    $result=$result+$_;
　　#  }
　　# return $result;
　　#}
　　#my @fred=qw(1 3 5 7 9);
　　#my $fred_total=&total(@fred);
　　#print "The total of\@fred is $fred_total.\n";
　　#print "Enter some numbers on separate lines:";
　　#my $user_total=&total();
　　#print "The total of those number is $user_total.\n";
　　#######第四章第二题答案#####
　　#sub total{
　　#  my($result)=shift @_;
　　#  foreach(@_){
　　#    $result=$result+$_;
　　#  }
　　# return $result;
　　#}
　　#my @sum=('1','2','3'...'1000');
　　#my $total_sum=&total(@sum);
　　#print $total_sum;
　　#print "\n";
　　#############第四章第三题答案##########
　　sub average{
　　my($result)=shift@_;
　　my($index)=1;
　　foreach(@_){
　　$result+=$_;
　　$index=$index+1;
　　}
　　return $result/$index;
　　}
　　sub over_average{
　　my($aver)=&average(@_);
　　my(@over_aver)=();
　　my($midnum);
　　foreach(@_){
　　if($_>$aver){
　　$midnum=$_;
　　print ;
　　print "\n";
　　}
　　#return $midnum;
　　}
　　}
　　my @sum=('1','2'...'5');
　　my $ave=&average(@sum);
　　print $ave ."\n";
　　print "test over average.\n";
　　my $aver=&over_average(@sum);
　　print $aver."\n";