作业帮 > 综合 > 作业

求个小程序perl文件1中有很多数据,我想统计在各个区间里相应有多少个数据.比如下面数据,A文件在1--5区间里有14个

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 04:34:20
求个小程序perl
文件1中有很多数据,我想统计在各个区间里相应有多少个数据.
比如下面数据,A文件在1--5区间里有14个数,在区间6--10里有12个数
A B C
1 1--5 14
3
3
3
3
3
3
3
3
3
4
4
4
4
6 6--10 12
7
7
7
7
7
8
8
8
9
9
10
11
求个小程序perl文件1中有很多数据,我想统计在各个区间里相应有多少个数据.比如下面数据,A文件在1--5区间里有14个
请试试以下程序

#!usr/bin/perl
open A, "A.txt" or die "";
my $sum1 = 0;my $sum2 = 0;
my $qj = 1;
my $qj2 = 5;
my $qj3 = 6;
my $qj4 = 10;

while(){ #按行读取文件内容
chomp($_); #去掉回车
my $num = $_;
if($num>=$qj and $num=$qj3 and $num
再问: 处理的数据比较多,你的程序处理起来比是很方便。
再答: 上面程序是处理的A文件内容是 1 3 3 3 3 3 3 3 3 3 4 4 4 4 6 7 7 7 7 7 8 8 8 9 9 10 11 不确定您文件中的具体内容是什么。您能解释B和C两列的含义吗?或者提供一下A文件中的内容。
再问: 不好意思,可能是我表达的不清楚。 A文件是一列数据很长,其实也没有B文件,只要按区间5个5个一直在文件A中找,找出的内容输出到C文件就可以。我的邮箱;zhangqiang829@163.com
再答: #!usr/bin/perl open A, "C.txt" or die ""; my $sum = 0; #每个区间总数量 my $startNum = 1; #起始数 my $qjjg = 5; #区间间隔 my $endNum = $qjjg; #截止数 while(){ #按行读取文件内容 chomp($_); #去掉回车 my $num = $_; if($num>=$startNum and $num