プログラミング学習の記録 468.1 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)の4章(サブルーチン)の練習問題1

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler (Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の4章(サブルーチン), 4.12(練習問題)、1を解いてみる。

1.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード( TextWrangler)

#!/usr/bin/perl -w sub total{ $sum=0; foreach (@_){ $sum+=$_; } $sum; } my @fred=qw{ 1 3 5 7 9}; my $fred_total=total(@fred); print "The total of \@fred is $fred_total.\n"; print "Enter some numbers on separate lines: "; my $user_total=total(<STDIN>); print "The total of those numbers is $user_total. \n";

入出力結果(Ternimal)

The total of @fred is 25. Enter some numbers on separate lines: 2 4 6 8 10 The total of those numbers is 30.

今日は初めてPerlのデフォルトの「@_」と「$_」を使ってみた！（サブルーチンのforeachとそのブロックの中)