初めてのPerl 第2章

perl

内定先の企業が「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プラグマを使うと意味が分かり易くなる。