perl 统计百分比,怎么写代码
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/01 21:46:52
perl 统计百分比,怎么写代码
有一个表格,第一列为名称,第二列为数值,统计一下 第二列中0.1出现的百分率.
NAMESIGNAL
A10.1
A22
A30.1
A42
A50.1
A62
A70.1
A82
A90.1
A102
A110.1
A122
A130.1
A142
A150.1
A162
A170.1
A182
A190.1
A202
A210.1
A222
有一个表格,第一列为名称,第二列为数值,统计一下 第二列中0.1出现的百分率.
NAMESIGNAL
A10.1
A22
A30.1
A42
A50.1
A62
A70.1
A82
A90.1
A102
A110.1
A122
A130.1
A142
A150.1
A162
A170.1
A182
A190.1
A202
A210.1
A222
open F1,"1.txt" or die $!;
@array=<F1>;
foreach(@array){if(/^A/){$count++; ($s1,$s2)=split/\s+/,$_;if($s2==0.1){$t++;}}}
$p=$t/$count;
print "$p\n";
@array=<F1>;
foreach(@array){if(/^A/){$count++; ($s1,$s2)=split/\s+/,$_;if($s2==0.1){$t++;}}}
$p=$t/$count;
print "$p\n";