作业帮 > 数学 > 作业

如何用Perl读取文件并分情况统计满足条件的个数的百分比

来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/11/18 18:58:02
如何用Perl读取文件并分情况统计满足条件的个数的百分比
请问如何写一个Perl脚本,使之可以实现以下功能:
用ARGV[0]读入一个有若干行的文件,首先一行行读取判断其是否有元素“a”,如果有“a”则计算该行所出现的a的个数,存在$count[$i]中.同时判断该行a的个数是否大于5,如果大于则$greater自增1,如果相等则$equal自增1,如果小于则$less自增1.
如果该行无“a”,则$less自增1.
最后计算并打印出a>5,a=5,a
如何用Perl读取文件并分情况统计满足条件的个数的百分比
open(FD,$ARGV[0]);
my(@c,$g,$e,$l);#count,greater,equal,less
my($s,$n,$i);
$i=1;
while($s=){
$s=~s/[^a]//g;
$n=length($s);
$c[$i]=$n;
$g++ if ($n>5);
$e++ if ($n==5);
$l++ if ($n