求个小程序perl文件1中有很多数据,我想统计在各个区间里相应有多少个数据.比如下面数据,A文件在1--5区间里有14个数,在区间6--10里有12个数A B C1 1--5 143 3 3 3 3 3 3 3 3 4 4 4 4 6 6--10 127 7777888991011

求个小程序perl文件1中有很多数据,我想统计在各个区间里相应有多少个数据.比如下面数据,A文件在1--5区间里有14个数,在区间6--10里有12个数A B C1 1--5 143 3 3 3 3 3 3 3 3 4 4 4 4 6 6--10 127 7777888991011
求个小程序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个数,在区间6--10里有12个数A B C1 1--5 143 3 3 3 3 3 3 3 3 4 4 4 4 6 6--10 127 7777888991011
请试试以下程序

#!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