[2.12] 練習問題3（修正）

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

use strict;
use warnings;

my $pi = 3.14;
print "求めたい円周の半径を入力してください\n";
chomp(my $radius = <STDIN>);
if ($radius < 0){
    print "半径に負の値が入力されたので、半径を0として円周の長さを求めます\n";
    $radius = 0;
}
my $ans = 2 * $pi * $radius;
print "円周率を3.14としたとき、半径$radiusの円周の長さは$ansです\n";

出力結果はこちら。

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

12.5

円周率を3.14としたとき、半径12.5の円周の長さは78.5です
求めたい円周の半径を入力してください

 -1

半径に負の値が入力されたので、半径を0として円周の長さを求めます

円周率を3.14としたとき、半径0の円周の長さは0です
求めたい円周の半径を入力してください

0

円周率を3.14としたとき、半径0の円周の長さは0です

ちょっとはシンプルになったかな。