疑問 - 求Perl平均數寫法

chia.jung · 2012-01-20, 08:45 AM

小弟正在學習Perl,目前有一個作業是將所有硬碟算出Performance後再算平均數,
我已經把硬碟的Performance透過perl讀取出來可是平均數想了老半天還是寫不出來
請問是否有人可以幫忙我解答以下Performance值如何算平均數呢?謝謝唷!
1.3MB/s
50.8MB/s
135MB/s
188MB/s
96.7MB/s
48.4MB/s
69.8MB/s
98.1MB/s
111MB/s

飛鳥 · 2012-02-07, 04:43 PM

my @perf=('1.3MB/s','50.8MB/s','135MB/s','188MB/s','96.7MB/s','48.4MB/s','69.8MB/s','98.1MB/s','111MB/s'); #把所以數據寫入陣列
my $A; #加總變數
for(0..$#perf) #FOR迴圈，把所有陣列讀一次
{
$perf[$_] =~ s/MB\/s//g; #把MB/s的字串不要，刪除
$A= $A + $perf[$_]; #加總放入變數 $A
}
print $A/($#perf+1); # #把總數除以陣列數 +1

chia.jung · 2012-02-07, 05:10 PM

感謝飛鳥兄的解答,真是讓我揪感心耶~那麼久都沒人要理我....
不好意思~再請問一下,如果說我要透過檔案操作的方式,就是上述那些數值都已經存成一個檔案了,然後用檔案讀取的方式去執行,請問該如何寫呢?謝謝唷!

飛鳥 · 2012-02-08, 05:56 PM

下面這本好書：

http://perl.hcchien.org/toc.html

第10章
10. Perl的檔案存取

這有範例可以參考

2012-01-20, 08:45 AM	#1
chia.jung 註冊會員榮譽勳章勳章總數 UID - 351289 在線等級: 註冊日期: 2012-01-17 文章: 2 精華: 0 現金: 3 金幣資產: 3 金幣	疑問 - 求Perl平均數寫法小弟正在學習Perl,目前有一個作業是將所有硬碟算出Performance後再算平均數, 我已經把硬碟的Performance透過perl讀取出來可是平均數想了老半天還是寫不出來請問是否有人可以幫忙我解答以下Performance值如何算平均數呢?謝謝唷! 1.3MB/s 50.8MB/s 135MB/s 188MB/s 96.7MB/s 48.4MB/s 69.8MB/s 98.1MB/s 111MB/s

	送花文章: 2, 收花文章: 0 篇, 收花: 0 次

2012-02-07, 04:43 PM	#2 (permalink)
飛鳥協調管理員榮譽勳章勳章總數19 UID - 23073 在線等級: 註冊日期: 2003-01-07 VIP期限: 無限期住址: 史萊姆團隊文章: 7199 精華: 11 現金: 837 金幣資產: 260029 金幣	my @perf=('1.3MB/s','50.8MB/s','135MB/s','188MB/s','96.7MB/s','48.4MB/s','69.8MB/s','98.1MB/s','111MB/s'); #把所以數據寫入陣列 my $A; #加總變數 for(0..$#perf) #FOR迴圈，把所有陣列讀一次 { $perf[$_] =~ s/MB\/s//g; #把MB/s的字串不要，刪除 $A= $A + $perf[$_]; #加總放入變數 $A } print $A/($#perf+1); # #把總數除以陣列數 +1
	__________________ 寶貝你我的地球, 請少開電器，減少溫室氣體排放外，多種植植物，減少列印，多用背面，丟棄時做垃圾分類。 ~~~~鳥巢學習誌-Blog~~~~
	送花文章: 11706, 收花文章: 3363 篇, 收花: 16453 次

2012-02-07, 05:10 PM	#3 (permalink)
chia.jung 註冊會員榮譽勳章勳章總數 UID - 351289 在線等級: 註冊日期: 2012-01-17 文章: 2 精華: 0 現金: 3 金幣資產: 3 金幣	感謝飛鳥兄的解答,真是讓我揪感心耶~那麼久都沒人要理我.... 不好意思~再請問一下,如果說我要透過檔案操作的方式,就是上述那些數值都已經存成一個檔案了,然後用檔案讀取的方式去執行,請問該如何寫呢?謝謝唷!

	送花文章: 2, 收花文章: 0 篇, 收花: 0 次

2012-02-08, 05:56 PM	#4 (permalink)
飛鳥協調管理員榮譽勳章勳章總數19 UID - 23073 在線等級: 註冊日期: 2003-01-07 VIP期限: 無限期住址: 史萊姆團隊文章: 7199 精華: 11 現金: 837 金幣資產: 260029 金幣	下面這本好書： http://perl.hcchien.org/toc.html 第10章 10. Perl的檔案存取這有範例可以參考

	送花文章: 11706, 收花文章: 3363 篇, 收花: 16453 次

Google 提供的廣告