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
|