初めてのPerl2章

perl

練習問題１：半径12.5の円周の長さを求めよ。

　　#!/usr/bin/perl -w

　　$pai = 3.141592654;
　　$circle = 2 * 12.5 * $pai;
　　print $circle . "\n";

練習問題２：半径を標準入力から入力して、円周の長さを求めよ。

　　#!/usr/bin/perl -w

　　$pai = 3.141592654;

　　print "input radius : ";
　　chomp($radius = );

　　$circle = 2 * $radius * $pai;

　　print $circle . "\n";

練習問題３：半径を標準入力から入力して、円周の長さを求めよ。
　　　　　　ただし、入力された数値が０以下の場合、０に置き換えること。

　　#!/usr/bin/perl -w

　　$pai = 3.141592654;

　　print "input radius : ";
　　chomp($radius = );

　　if($radius < 0){
　　　　$radius = 0;
　　}

　　$circle = 2 * $radius * $pai;

　　print $circle . "\n";

練習問題４：２つの数値を標準入力から入力、積を求めよ。

　　#! /usr/bin/perl -w

　　print "input num1 : ";
　　chomp($num1 = );

　　print "input num2 : ";
　　chomp($num2 = );

　　print $num1 * $num2 . "\n";

練習問題５:標準入力から、文字列を数値を入力。
　　　　　　文字列を入力された回数分の表示せよ。

　　#! /usr/bin/perl -w

　　print "input string : ";
　　$str = ;

　　print "input num : ";
　　chomp($num = );

　　print $str x $num . "\n";