2006-04-25から1日間の記事一覧

第4章 サブルーチン 4.12 練習問題

いっきに練習問題まで。 4-2 & 4-3 引数リストに含まれる数値の合計を返すサブルーチンを作る 単純に、 use strict; #問題のサブルーチン sub total{ my @nums = @_; my $sum = 0; foreach (@nums) { $sum += $_; } $sum; } # 4-1 my @fred = qw{1 3 5 7 9};…