categoryPerl覚書

引数の受け取り方

trackback1  comment0
プログラミング覚書 Perl-028

引数の受け取り方
----------------------------------------------------------------------

($total, $mean) = &answer(80, 55, 75);
print "合計点数は$total点で、平均点数は$mean点です。\n";

sub answer {
($x, $y, $z) = @_;
$total = $x + $y + $z;
$mean = $total / 3;

return ($total, $mean);
}

# 合計点数は210点で、平均点数は70点です。
# 配列 @_ で引数を受け取る。
# 戻り値は多値でもOK。

----------------------------------------------------------------------
関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/257-c36c2218
まとめtyaiました【引数の受け取り方】
プログラミング覚書 Perl-028引数の受け取り方----------------------------------------------------------------------($total, $mean) =