解説を参考にメイン処理を変更。変更点は サブルーチンtotalをprint命令中に組み込む形にした。 事前に加算したい数をリストとして与えておくのではなく、サブルーチンに対する引数として与えた。プログラムはこちら。 #! /usr/local/bin/perl # ex4-2sample…

サブルーチンの中身のみ変更。変更点は 変数名$ansを$sumに変更。どちらがいいかは甲乙つけがたいところだが、「加算」を印象付けるとしたら$sumだと思った。 引数から渡されたリストを再度サブルーチン内で別の配列に移すのではなく、@_として利用。 解説を…