perl学习1

#！/usr/bin/perl

sub total {

      my $sum;

     foreach (@_) {

     $sum += $_;

    }

}

sub average {

   if (@_ == 0 ) { return }

   my $sum = total(@_);

   my $count = @_;

   $sum/$count;

}

sub above_average {

    my $average = average(@_);

    my @list;

   foreach $element (@_) {

   if ($element > $average) {

    push @list,$element;

       }

    } 

@list;

}

my @fred = qw{ 1 3 5 7 8 };

my $fred_total = total(@fred);

print "The total of \@fred is $fred_total.\n";

print "Enter some numbers on separate lines: ";

my $usr_total = total(<STDIN>);　　

print "Total of those number is $usr_total.\n";

my @frad =(1..1000);

my $frad_total = total(@frad);

print "Total of \@frad is $frad_total.\n";

my @max = above_average(1..100);

print "\@max is @max\n";

my @kill_er = above_average(1000,1..100);

print "\@kill_er is @kill_er.\n";