如何用Perl读取文件并分情况统计满足条件的个数的百分比
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/09/02 02:05:42
如何用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脚本,使之可以实现以下功能:
用ARGV[0]读入一个有若干行的文件,首先一行行读取判断其是否有元素“a”,如果有“a”则计算该行所出现的a的个数,存在$count[$i]中.同时判断该行a的个数是否大于5,如果大于则$greater自增1,如果相等则$equal自增1,如果小于则$less自增1.
如果该行无“a”,则$less自增1.
最后计算并打印出a>5,a=5,a
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
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
如何用perl读入一个文件,计算文件中各个单词的出现频率,再输出
vfp 统计满足条件的个数
excel怎么统计满足某个条件的数的个数?
如何用excel中的countif 计算出满足2个条件的单元格个数
EXCEL 如何统计两列中满足条件单元格的个数
数列如何用excel统计奇数或偶数的个数
如何用VB统计10000以内素数的个数
excel中,条件1:K列中为“15期”,条件2:L列中为“是”,求统计两条件同时满足的情况个数
Excel中如何求出同时满足两个条件的个数? 如图A列B列是被统计对象,D列是统计项目,E列是统计结果
如何用pascal语言,把一个自然数转换为二进制,并统计1和0的个数
统计100-999之间满足条件“百位数字加十位数字加个位数字的和能被5整除”的数的个数,并输出统计结果.
EXCEL中如何用公式计算某一列中满足某几个条件的值的个数