作者cutecpu (可爱中央处理器)
看板Perl
标题Re: [问题] 取百分比问题
时间Thu Dec 6 00:42:16 2007
#!/usr/bin/perl
open F1,"1.txt";
open F2,"2.txt";
while(<F1>=~/\d+/){
$tmp=$&;
<F2>=~/\d+/;
$tmp+=$&;
$sum+=$tmp;
push @a,$tmp;
}
print "$_:",sprintf("%.2f",$_/$sum),$/ for(@a);
※ 引述《iswearwang (^_^)》之铭言：
: 假设我有两个档案 1.txt , 2.txt
: 其内容皆为
: 1:0.1
: 2.0.2
: 3:0.3
: 4:0.4
: 5:0.5
: 6:0.6
: 7:0.7
: 8:0.8
: 9:0.9
: 0:0
: .
: .
: .
: 左边为次数,右边为百分比.....我现在把两个档案作合并...次数可以直接相加
: 可是百分比要重算...我是一列一列读进来...请问要怎麽抓sum次数的最後一笔
: 我要直接把次数除以sum 取百分比....另外 perl的除法
: 我写 $coverage = $num/$sum....
: compile会有 illeage division by zero的问题
: 不晓得是哪里出错了...??
: 谢谢回应
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.160.59.90