求Perl平均數寫法
 

:on_22:小弟正在學習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

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

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

下面這本好書：

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

第10章
10. Perl的檔案存取

這有範例可以參考