[4.12] 練習問題2 （修正）

初めてのPerl

解説を参考にメイン処理を変更。

変更点は

  1. サブルーチンtotalをprint命令中に組み込む形にした。

事前に加算したい数をリストとして与えておくのではなく、サブルーチンに対する引数として与えた。

プログラムはこちら。

#! /usr/local/bin/perl
# ex4-2sample program

use strict;
use warnings;

print "1から1000までの全ての数を加算します。\n";
print "1から1000までの合計は、" ,&total(1..1000),"です。\n";

sub total{
    my $sum = 0;
    foreach (@_){
	$sum += $_;
    }
    $sum;
}