perl 计算平均数的方法

     1 use strict;
     2 use warnings;
     3 open( IN_FILE, "data.txt") or  die("Could not open data.txt");
     4 my $line;
     5 my $a=0;
     6 my $number=0;
     7 while(1)
     8 {
     9 $line= <IN_FILE>;
    10 if(not defined($line))
    11 {last;
    12  }
    13 chomp($line);
    14 print "$line ";
    15 $a=$a+$line;
    16 $number++;
    17 }
    18 print "\n";
    19 my $average=$a/$number;

    20 print "the average is $average\n";