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

プロンプトを表示して、数を2個読み込んで（1行に1個ずつ別々に読み込みます）、それらの積を表示するプログラムを書いてください

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

use strict;
use warnings;

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

出力は結果はこちら。

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

 -1

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

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

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

0

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


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

12.5

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