求个小程序perl
问题描述：
求个小程序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
答
请试试以下程序
#!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 33333333344446 77777888991011不确定您文件中的具体内容是什么。您能解释B和C两列的含义吗？或者提供一下A文件中的内容。#!usr/bin/perlopen A, "