求个小程序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