サブルーチンからサブルーチンを呼び出す
#平均を求める,サブルーチンを使用
@dat=(1,2,3,4,5,6,7,8,9,10);
$mean=&mean(@dat);
print "mean="; print $mean;
sub mean{
$sum=&sum(@dat);
$n=@dat;
$mean=$sum/$n;
return($mean);
}
sub sum{
for($i=0;$i<$n;$i++){
$sum+=$dat[$i];
}
return($sum);
}
Perlを勉強し始めたのですがサブルーチンの所で分からない所があるので教えていただけませんか?
mean関数(Perlではmeanルーチンなどと呼ぶべきでしょうか?)の中でsum関数を呼び出してデータの合計を$sumに代入したいのですが,この場合だとうまく代入されていないようなのですが,何がよろしくないのでしょうか？
お礼
ありがとうございます。なんとなくわかりました