[2.12]練習問題3

3. 問題2のプログラムを改造して、ユーザが0より小さい数を入力した場合には、（入力された）負の値の代わりに、0を半径として使うようにしてください

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

use strict;
use warnings;

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

出力結果はこちら。

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

 -12.5

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

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