初めてのPerl 第2章
内定先の企業が「Perl やっとけ」と暗に仄めかしてるので Perl のお勉強を始めた(Ruby はしばらく放置かな…)。とりあえず、リャマ本を読み進めてみることにした。練習問題の回答だけ備忘録としてメモしておく。
第2章
ex02-3
print "Input number: "; chomp($r = <STDIN>); if ($r < 0) { $r = 0; } $ensyuu = $r * 2 * 3.141592654; print "$ensyuu\n";
ex02-4
#!/usr/bin/perl -w print "Input number 1: "; chomp($num1 = <STDIN>); print "Input number 2: "; chomp($num2 = <STDIN>); print $num1 * $num2 . "\n";
ex02-5
#!/usr/bin/perl -w print "Input string: "; $str = <STDIN>; print "Input number: "; chomp($num = <STDIN>); print $str x $num;
反省点
リテラル値を直接使うのは避けて、変数に代入して名前を付けよう。例えば、定数値のπは「use constant PI => 3.141592654;」などとして constantプラグマを使うと意味が分かり易くなる。