<<目次へ

平均値を返す関数

-関数の定義　ファイル名：mean.pl

package mean;

sub mean{
        require("C://Perl/function/sum.pl");
        $goukei=sum::sum(@_);
        $n=@_;
        $mean=$goukei/$n;

        return($mean);
}
1;

-関数の呼び出し

@dat=(1,2,3,4,5,6,7,8,9,10);
require("C://Perl/function/mean.pl");
$x=mean::mean(@dat);
print $x;