#!/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