＊至急 perl 違うところの修正と説明をお願いします。

質問

この間質問したのですが、全く解決できないので再度お願いします。
Aというファイルを読み込んで、最大最小・平均を求めたいです。専門用語をできるだけ使わないで答えてください！！

#!/usr/bin/perl
# 12345 STDIN
use strict; use warnings;

open ( FILEHANDLE , " < A " ) ;　　＃Aを読み取ってnumbersに当てはめる

my $Minimum=$ARGV[0];　＃最小値に一番最初の値を当てはめる。
my $Maximum=$Minimum;　＃ひとまず最大値＝最小値（両方とも一番最初）とおく
my $Sum=$Minimum;　　　　　＃？　
my $temp=0;　　　　　　　　＃？temp
my $i=1; 　　　＃numbersの最初の値iを初期化
while ( $i < $Num_arg){　　＃？（iと最初の値を比べる？？）
$temp=$ARGV[$i];　　　　　 ＃？
if ( $Minimum > $temp ) { ＃最小値と数字を比べる。
$Minimum = $temp;　　　　　＃小さかったらその値を最小値と置く
}elsif ( $Maximum < $temp ){　＃最小値に当てはまらなかったら最大値と比べる。
$Maximum = $temp;　　　　＃大きかったらその値を最大値と置く。
}
$Sum = $Sum + $temp;　　＃？
$i++;　　　　　　　　　＃最初の値iに１を足す。そしてループさせる
}

my $Average = $Sum / $Num_arg;　＃平均＝合計÷全部の数

my $w = 　　　　　　　　　＃ｗをしたのforeach文で出た値と置く。
foreach my $w(0..$#Numbers){　　＃Numbersの最初から最後までやる（Σシグマとおなじ）
($Num_arg - $Average) ** / $Num_arg;　　＃Numbersのi番目の値から平均値を引き2剰そしてNumbersの数で割る。
}

my $Standarddivitation = sqrt ($w);　＃標準偏差＝ｗの平方根

print "Average value = $Average \n";
print "Maximum Value = $Maximum \n";
print "Minimum Value = $Minimum \n";
print "Standard devitation = $Standarddevitation;

私がやっていると思っているのが＃のところです。？の部分はよく分かりません＞＜。
何で違うかと間違っているところを(簡単なものを使って)修正してください。
気がついたのはNumbersとNum_arg（i番目をあらわしていることと総数を表している）とがばらばらなことです。

よろしくお願いします。

回答No.1

kuroizell

＞最大最小・平均を求めたいです。
前の質問にコピペで動くものを貼ってます。
標準偏差も欲しければ、必要なモジュールをインストールしてsakusaker7さんのスクリプトをコピペして下さい。
モジュールのインストール方法は、LinuxならCPAN、WindowsのActivePerlならppmでググればすぐ分かります。

お礼

そうなのですか！
このパソコンではperlが使えないので試せないのです＞＜

そのプログラムが動くかすらも分からないという初心者で。。。。。

さっそくググってみます。

ありがとうございました。