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

開発環境

• 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)の 2章(スカラーデータ),　2.11(練習問題)、3を解いてみる。

 

3.

前問の最後で書いた通り、半径に負の値が代入された時。(0を半径として使う。)

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

if制御構造バージョン

コード(TextWrangler)

#!/usr/bin/perl use strict; use warnings; print "円の半径を入力してください\n"; chomp(my $r = <STDIN>); if( $r < 0){ $r = 0; } my $pi = 3.141592654; my $c = 2 * $r * $pi; print "半径$rの円の円周の長さは約$c\n";

入出力結果(Terminal)

$ ./perl_program 円の半径を入力してください 12.5 半径12.5の円の円周の長さは約78.53981635 $ ./perl_program 円の半径を入力してください 0 半径0の円の円周の長さは約0 $ ./perl_program 円の半径を入力してください -12.5 半径0の円の円周の長さは約0

3項演算子バージョン

コード(TextWrangler)

#!/usr/bin/perl use strict; use warnings; print "円の半径を入力してください\n"; chomp(my $r = <STDIN>); $r = $r < 0 ? 0 : $r; my $pi = 3.141592654; my $c = 2 * $r * $pi; print "半径$rの円の円周の長さは約$c\n";

入出力結果(Terminal)

$ ./perl_program 円の半径を入力してください 12.5 半径12.5の円の円周の長さは約78.53981635 $ ./perl_program 円の半径を入力してください 0 半径0の円の円周の長さは約0 $ ./perl_program 円の半径を入力してください -12.5 半径0の円の円周の長さは約0

if制御構造バージョンをより短く1行で記述。

コード(TextWrangler)

#!/usr/bin/perl use strict; use warnings; print "円の半径を入力してください\n"; chomp(my $r = <STDIN>); $r = 0 if $r < 0; my $pi = 3.141592654; my $c = 2 * $r * $pi; print "半径$rの円の円周の長さは約$c\n";

入出力結果(Terminal)

$ ./perl_program 円の半径を入力してください 12.5 半径12.5の円の円周の長さは約78.53981635 $ ./perl_program 円の半径を入力してください 0 半径0の円の円周の長さは約0 $ ./perl_program 円の半径を入力してください -12.5 半径0の円の円周の長さは約0