more math.pl test.pl :::::::::::::: math.pl :::::::::::::: package math;
sub sum{ my $sum=0; $??????@_; for($i=0;$i<$n;$i++){ $sum+=$_[$i]; } return($sum); } sub mean{ $goukei=sum(@_); $??????@_; $mean=$goukei/$n;
return($mean); } sub var{ my $mean=mean(@_); my $??????@_; my $sum=0; for($i=0;$i<$n;$i++){ $sum+=($_[$i]-$mean)**2; } $var=$sum/($n-1); return($var); } sub stdev{ my $var=var(@_); $sd=sqrt($var); return($sd); }
1;
:::::::::::::: test.pl :::::::::::::: #!/usr/bin/perl @dat=(1,2,3,4,5,6,7,8,9,10); require("/home/piyota0/JUNK/120410/math.pl"); my $x=math::sum(@dat); my $y=math::mean(@dat); my $z=math::var(@dat); my $a=math::stdev(@dat); print $x, " ", $y, " ",$z, " ",$a,"\n"; 1;