[2.12]練習問題1

1. 半径12.5の円の円周の長さを求めるプログラムを書いてください

#! /usr/local/bin/perl
# ex2-1

use strict;
use warnings;

print "求めたい円周の半径を入力してください\n";
my $radius = <STDIN>;
my $ans = $radius * 2 * 3.14;
print "半径が$radiusのとき円周の長さは約$ansです\n";

出力結果はこちら。

求めたい円周の半径を入力してください

12.5

半径が12.5

のとき円周の長さは約78.5です

何故そこで改行するんだ君は。
…そうか！が返す文字列には末尾に改行文字がついているんだった。
なるほど、じゃあエラー該当箇所のコードを書き直すと、

my $radius = <STDIN>;
chomp($radius);

こうなる。出力結果は、

求めたい円周の半径を入力してください

12.5

半径が12.5のとき円周の長さは約78.5です

OK!だけど、この場合は

chomp(my $radius = <STDIN>);

って書くんだった。注意注意。