perl 计算平均数的方法

最新推荐文章于 2019-11-15 20:46:10 发布

转载最新推荐文章于 2019-11-15 20:46:10 发布 · 2.7k 阅读

文章标签：

#perl 计算平均值

perl 专栏收录该内容

15 篇文章

订阅专栏

本文通过一个Perl脚本示例介绍了如何打开并读取文件内容，计算平均值，并打印结果。示例中使用了基本的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";