2章 練習問題

2-1

#!/usr/bin/perl -w
$r = 12.5;
print "enshu:", 2 * 3.141592654 * $r, "\n";

2-2

#!/usr/bin/perl -w
chomp($r = <STDIN>);
print "enshu:", 2 * 3.141592654 * $r, "\n";

模範解答では円周率の方を変数に入れてた。定数だからか。

2-3

#!/usr/bin/perl -w
chomp($r = <STDIN>);
if ($r < 0) {
  $r = 0;
}
print "enshu:", 2 * 3.141592654 * $r, "\n";

Here's one way to do it.

2-4

#!/usr/bin/perl -w
print "input a:\n";
chomp($a = <STDIN>);
print "input b:\n";
chomp($b = <STDIN>);
print "a * b = ", $a * $b, "\n";

2-5

#!/usr/bin/perl -w
$string = <STDIN>;
chomp($n = <STDIN>);
print $string x $n;

4番では入力を促す文章を表示していたのに、これはしてないなと今気づいた。n行表示させるためにchompは無し。x演算子は便利そうだ。